rm(list = ls())
pacman::p_load(tidyverse,
hrbrthemes, 
patchwork,
here,
stringr,
knitr,
formatR,
forcats,
ggplot2,
bibliometrix,
igraph,
stringi,
stringdist,
circlize,
ggalluvial,
ggraph)
knitr::opts_chunk$set(echo = TRUE, message = FALSE, warning = FALSE)

# Load CSV datasets
sd <- read_csv(here("data", "ocp_srm_study_details.csv"))
ocp <- read_csv(here("data", "ocp_srm_ocp_details.csv"))
sub <- read_csv(here("data", "ocp_srm_subject_details.csv"))
im <- read_csv(here("data", "ocp_srm_impact_details.csv"))
sp <- read_csv(here("data", "ocp_srm_species_details.csv"))

# Load BibTeX dataset
bib_sco <- convert2df(here("data", "bib_sco.bib"), dbsource = "scopus", format = "bibtex")

# Join the study and subject datasets
sd_sub <- left_join(sd, sub, by = "study_id")

# Count the number of publications per year and calculate cumulative sum
sd1 <- sd %>%
  count(publication_year) %>%
  mutate(n_cumulative = cumsum(n))


# Create a theme for the count plots 
theme_count <- function() {
  theme_minimal() +
  theme(
    panel.grid.major.y = element_line(color = "gray", linetype = "dashed"),
    panel.grid.minor.y = element_blank(),
    axis.line.x = element_line(size = 1.2),
    axis.line.y = element_line(size = 1.2),
    axis.title.x = element_text(size = 20, face = "bold"),
    axis.title.y = element_text(size = 20, face = "bold"),
    axis.text.x = element_text(angle = 45, hjust = 1, size = 15, color = "#666666"),
    axis.text.y = element_text(size = 20, color = "#666666"),
    legend.position = "none"
  )
}


# Create the annual count plot
fig1a <- sd_sub %>%
  mutate(subjects = strsplit(subject, ",\\s+")) %>%
  unnest(subjects) %>%
  count(publication_year, subjects) %>%
  group_by(subjects = reorder(subjects, n)) %>%
  ggplot(aes(x = publication_year, y = n, fill = subjects)) +
    geom_bar(stat = "identity", position = "stack", alpha = 0.7) +
    geom_text(aes(label = n), position = position_stack(vjust = 0.6), 
              fontface = "bold", color = "white", size = 6, hjust = 0.4) +
    scale_x_continuous(breaks = seq(min(sd1$publication_year), max(sd1$publication_year), by = 1), 
                       expand = expansion(0,0)) +  
    scale_y_continuous("Annual Article Count", limits = c(0,15)) +
    labs(y = "Article Count", tag = "A", fill = "Subjects") +
    theme_count() +
    theme(axis.title.x = element_blank()) +
    scale_fill_brewer(palette = "Dark2") +
    guides(fill = guide_legend(override.aes = list(size=10)))


# Create the cumulative count plot
fig1b <- sd_sub %>%
  mutate(subjects = strsplit(subject, ",\\s+")) %>%
  unnest(subjects) %>%
  count(publication_year, subjects) %>%
  group_by(subjects = reorder(subjects, n)) %>%
  mutate(n_cumulative = cumsum(n)) %>%
  ggplot(aes(x = publication_year, y = n_cumulative, fill = subjects)) +
    geom_area(size = 1.2, alpha = 0.7) +
    scale_y_continuous("Cumulative Article Count", limits = c(0,115)) +
    scale_x_continuous(breaks = seq(min(sd_sub$publication_year), max(sd_sub$publication_year), by = 1), 
                       expand = expansion(0,0)) +  
    labs(x = "Year", y = "Cumulative Article Count", tag = "B", fill = "Subjects") +
    theme_count() +
    scale_fill_brewer(palette = "Dark2") +
    guides(fill = guide_legend(override.aes = list(size=10)))

# Combine the two plots
fig1 <- fig1a / fig1b
fig1

# ggsave(here("figures", "fig1.pdf"), width = 16, height = 12, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "fig1.jpg"), width = 16, height = 12, units = "cm", scale = 2, dpi = 800)


# Total number of included primary literature
 total_sum_primary <- sd %>%
  summarise(total_sum = sum(total_included_studies, na.rm = TRUE)) %>%
  pull(total_sum)

 total_sum_primary # 3911

## [1] 3911

organochlorTHEME <- function() {
  theme_minimal() +
  theme(
    title = element_text(size = 30),
    axis.text.y = element_text(size = 30),
    axis.text.x = element_text(size = 20),
    axis.line.x = element_line(color = "gray", size = 3),
    axis.line.y = element_blank(),
    axis.ticks.x = element_blank(),
    axis.ticks.y = element_blank(),
    axis.title.x = element_blank(),
    axis.title.y = element_blank(),
    panel.grid.major.y = element_blank(),
    panel.grid.minor.y = element_blank(),
    legend.position = "none")    
}

# Create the annual Count Plot
figs4a <- sd1 %>%
  ggplot(aes(x = publication_year, y = n)) +
    geom_col(fill = "#1b9e77", alpha = 0.7) +
    geom_text(aes(label = n), position = position_stack(vjust = 0.6), 
              fontface = "bold", color = "white", size = 6, hjust = 0.4) +
    scale_x_continuous(breaks = seq(min(sd1$publication_year), max(sd1$publication_year), by = 1), 
                       expand = expansion(0,1)) +
    scale_y_continuous("Annual Article Count", limits = c(0,15)) +
    labs(x = "Year", tag = "A") +
    theme_count() +
    theme(axis.title.x = element_blank())


# Create the cumulative Count Plot
figs4b <- sd1 %>%
  ggplot(aes(x = publication_year, y = n_cumulative)) +
    geom_line(color = "#7570b3", size = 1, linetype = "solid") +
    geom_point(shape = 21, size = 6, fill = "#7570b3", stroke = 0) +
    geom_text(aes(label = n_cumulative), hjust = 0.2, vjust = -1, size = 6, color = "black") +
    scale_x_continuous(breaks = seq(min(sd1$publication_year), max(sd1$publication_year), by = 1), 
                       expand = expansion(0,1)) +
    scale_y_continuous("Cumulative Article Count", limits = c(0,120)) +
    labs(x = "Year", tag = "B") +
    theme_count()

# Combine the two plots
figs4 <- figs4a / figs4b
figs4

# ggsave(here("figures", "figs4.pdf"), width = 16, height = 12, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs4.jpg"), width = 16, height = 12, units = "cm", scale = 2, dpi = 800)

# Start the data manipulation
percent_ceesat_score <- sd %>%
  filter(!is.na(author_year)) %>%
  select(studies = author_year, starts_with("CEE")) %>%
  na.omit() %>%
  pivot_longer(cols = -studies, names_to = "question", values_to = "score") %>%
  group_by(question, score) %>%
  summarise(n = n(), .groups = 'drop') %>%
  mutate(percent = (n/sum(n))*100, 
         across(c(question, score), as.factor),
         question = fct_recode(question, 
           `1.1 Are the elements of the review question clear?` = "CEESAT2_1.1",
           `2.1 Is there an a-priori method protocol document?` = "CEESAT2_2.1",
           `3.1. Is the approach to searching clearly defined systematic and\ntransparent?` = "CEESAT2_3.1",
           `3.2. Is the search comprehensive?` = "CEESAT2_3.2",
           `4.1. Are eligibility criteria clearly defined?` = "CEESAT2_4.1",
           `4.2. Are eligibility criteria consistently applied to all potentially relevant\narticles and studies found during the search?` = "CEESAT2_4.2",
           `4.3. Are eligibility decisions transparently reported?` = "CEESAT2_4.3",
           `5.1. Does the review critically appraise each study?` = "CEESAT2_5.1",
           `5.2. During critical appraisal was an effort made to minimise\nsubjectivity?` = "CEESAT2_5.2",
           `6.1. Is the method of data extraction fully documented?` = "CEESAT2_6.1",
           `6.2. Are the extracted data reported for each study?` = "CEESAT2_6.2",
           `6.3. Were extracted data cross checked by more than one reviewer?` = "CEESAT2_6.3",
           `7.1. Is the choice of synthesis approach appropriate?` = "CEESAT2_7.1",
           `7.2. Is a statistical estimate of pooled effect provided together with\nmeasure of variance and heterogeneity among studies?` = "CEESAT2_7.2",
           `7.3 Is variability in the study findings investigated and discussed?` = "CEESAT2_7.3",
           `8.1 Have the authors considered limitations in the synthesis?` = "CEESAT2_8.1"),
         question = factor(question, levels = rev(levels(question))),
         score = factor(score, levels = levels(score)[c(4,1,3,2)]))

# Create CEESAT plot 
fig2a <- ggplot(data = percent_ceesat_score, aes(x = question, y = percent, fill = score)) +
  geom_col(width = 0.7, position = "fill", color = "black") +
  geom_text(aes(label = n), position = position_fill(vjust = 0.5), size = 7, fontface = "bold") +
  coord_flip() +
  guides(fill = guide_legend(reverse = TRUE)) +
  scale_fill_manual(values = c("#FF0000","#FFD700","#008000", "#DAA520"), name = "Score:") +
  scale_y_continuous(labels = scales::percent) +
  theme(panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(), 
        panel.background = element_blank(),
        axis.text.y = element_text(size = 20),
        axis.text.x = element_text(size = 20),
        axis.title.x = element_text(size = 25),
        axis.title.y = element_text(size = 25), 
        legend.position = "top",  
        legend.justification = "left",  
        legend.direction = "horizontal",
        legend.box = "horizontal",  
        legend.box.just = "left",  
        legend.title.align = 0.5,  
        legend.key.size = unit(1, "cm"),  
        legend.title = element_text(size =25),
        legend.text = element_text(size = 25),  
        strip.text = element_text(size = 20),
        strip.background = element_blank(), 
        plot.tag = element_text(size = 25)) + 
  ylab("Percentage") + 
  xlab("CEESAT Question") +  
  labs(tag = "A")

fig2a

total_n <- sum(percent_ceesat_score$n)
percentages <- tibble(
  red_percentage = sum(percent_ceesat_score$n[percent_ceesat_score$score == "Red"]) / total_n * 100,
  amber_percentage = sum(percent_ceesat_score$n[percent_ceesat_score$score == "Amber"]) / total_n * 100,
  green_percentage = sum(percent_ceesat_score$n[percent_ceesat_score$score == "Green"]) / total_n * 100,
  gold_percentage = sum(percent_ceesat_score$n[percent_ceesat_score$score == "Gold"]) / total_n * 100
)

 percentages

## # A tibble: 1 × 4
##   red_percentage amber_percentage green_percentage gold_percentage
##            <dbl>            <dbl>            <dbl>           <dbl>
## 1           32.9             50.5             10.7            5.87

# ggsave(here("figures", "fig2a.pdf"), width = 25, height = 15, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "fig2a.jpg"), width = 25, height = 15, units = "cm", scale = 2, dpi = 800)

# Create new categories for specified questions in numerical order
percent_ceesat_score$combined_category <- ifelse(
  grepl("^1\\.1", percent_ceesat_score$question) | grepl("^2\\.1", percent_ceesat_score$question),
  "Study Question",
  ifelse(grepl("^3\\.1", percent_ceesat_score$question) | grepl("^3\\.2", percent_ceesat_score$question),
    "Literature Searching",
    ifelse(grepl("^4\\.1", percent_ceesat_score$question) | grepl("^4\\.2", percent_ceesat_score$question) | grepl("^4\\.3", percent_ceesat_score$question),
      "Literature Screening",
      ifelse(grepl("^5\\.1", percent_ceesat_score$question) | grepl("^5\\.2", percent_ceesat_score$question) | 
             grepl("^6\\.1", percent_ceesat_score$question) | grepl("^6\\.2", percent_ceesat_score$question) | grepl("^6\\.3", percent_ceesat_score$question),
        "Data Extraction", 
        ifelse(grepl("^7", percent_ceesat_score$question), "Data Analysis", 
          ifelse(grepl("^8", percent_ceesat_score$question), "Study Limitations", "Other"))))))

# Group by combined_category and score, then summarize
percent_ceesat_score_grouped <- percent_ceesat_score %>%
  group_by(combined_category, score) %>%
  summarise(total_n = sum(n))

# Calculate the total count for each special category
total_counts <- percent_ceesat_score_grouped %>%
  group_by(combined_category) %>%
  summarise(total_count = sum(total_n))

# Join total counts with grouped data
percent_ceesat_score_grouped <- left_join(percent_ceesat_score_grouped, total_counts, by = "combined_category")

# Add a column for relative percent
percent_ceesat_score_grouped <- percent_ceesat_score_grouped %>%
  mutate(relative_percent = (total_n / total_count) * 100)

print(percent_ceesat_score_grouped)

## # A tibble: 22 × 5
## # Groups:   combined_category [6]
##    combined_category    score total_n total_count relative_percent
##    <chr>                <fct>   <int>       <int>            <dbl>
##  1 Data Analysis        Red        23         249             9.24
##  2 Data Analysis        Amber     192         249            77.1 
##  3 Data Analysis        Green      27         249            10.8 
##  4 Data Analysis        Gold        7         249             2.81
##  5 Data Extraction      Red       184         415            44.3 
##  6 Data Extraction      Amber     130         415            31.3 
##  7 Data Extraction      Green      53         415            12.8 
##  8 Data Extraction      Gold       48         415            11.6 
##  9 Literature Screening Red       113         249            45.4 
## 10 Literature Screening Amber     120         249            48.2 
## # … with 12 more rows

# view(percent_ceesat_score_grouped)

# load data
bib_alt <- read_csv(here("data","scopus.csv")) 

# function getAltmetrics(), the only parameter is doi; see example below
getAltmetrics <- function(doi = NULL,
                          foptions = list(),
                           ...) {
    if (!is.null(doi)) doi <- stringr::str_c("doi/", doi)
    identifiers <- purrr::compact(list(doi))
    if (!is.null(identifiers)) {
      ids <- identifiers[[1]]
    }
    base_url <- "http://api.altmetric.com/v1/"
    #request <- httr::GET(paste0(base_url, ids), httr::add_headers("user-agent" = "#rstats rAltmertic package https://github.com/ropensci/rAltmetric"))
    request <- httr::GET(paste0(base_url, ids))
    results <-
      jsonlite::fromJSON(httr::content(request, as = "text"), flatten = TRUE)
    results <- rlist::list.flatten(results)
    class(results) <- "altmetric"
    results
}
altmetric.crawler <- list(NULL)
for (n in 1:length(bib_alt$DOI)) {
 # format altmetric object
  format.Altmetric <- function(altmetric.object) {
  stats <- altmetric.object[grep("^cited", names(altmetric.object))]
  stats <- data.frame(stats, stringsAsFactors = FALSE)
  data.frame(paper_title = altmetric.object$title,
             journal = altmetric.object$journal,
             doi = altmetric.object$doi,
             #subject = altmetric.object$subjects,
             Altmetric.score = altmetric.object$score,
             stats = stats)
}
   # JASON formate
  altmetric.crawler[[n]]  <-  try(list(format.Altmetric(getAltmetrics(doi = bib_alt$DOI[n])))) # https://stackoverflow.com/questions/14059657/how-to-skip-an-error-in-a-loop?rq=1
  
  # create a dataframe function
  altmetric_df <- function(altmetric.object) {
  df <- data.frame(t(unlist(altmetric.object)), stringsAsFactors = FALSE)
  }
  #altmetric.crawler[[n]]  <-  try(list(altmetric_df(getAltmetrics(doi = DOIs[n]))))
  # create a function to summarize Altmetric object
  summary.altmetric <- function(x, ...) {
  if (inherits(x, "altmetric"))  {
string <- "Altmetrics on: \"%s\" with altmetric_id: %s published in %s."
vals   <- c(x$title,  x$altmetric_id, x$journal)
 if("journal" %in% names(x)) {
  cat(do.call(sprintf, as.list(c(string, vals))))
 } else {
   string <- "Altmetrics on: \"%s\" with altmetric_id: %s"
   cat(do.call(sprintf, as.list(c(string, vals))))
 }
  cat("\n")
  stats <- x[grep("^cited", names(x))]
  stats <- data.frame(stats, stringsAsFactors = FALSE)
  print(data.frame(stats = t(stats)))
  }
}
  # crawl
 # altmetric.crawler[[n]] <- try(list(summary.altmetric(getAltmetrics(doi = DOIs[n]))))
}

## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^
## 
## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^
## 
## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^
## 
## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^
## 
## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^
## 
## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^
## 
## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^
## 
## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^
## 
## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^
## 
## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^
## 
## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^
## 
## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^
## 
## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^
## 
## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^
## 
## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^
## 
## Error : lexical error: invalid char in json text.
##                                        Not Found
##                      (right here) ------^

# save results from altmetric.crawler and retrieve lists within lists
altmetric.crawler2 <- sapply(altmetric.crawler, function(x) {x})
# retrieve stats
altmetric.summary <- data.frame(paper_title = sapply(altmetric.crawler2, function(x)  ifelse(class(x) == "data.frame",x$paper_title,NA)),
           journal = sapply(altmetric.crawler2, function(x) ifelse(class(x) == "data.frame",x$journal,NA)),
           doi = sapply(altmetric.crawler2, function(x) ifelse(class(x) == "data.frame",x$doi,NA)),
           #subject = sapply(altmetric.crawler2, function(x) ifelse(class(x) == "data.frame",x$subject,NA)),
           Altmetric.score = sapply(altmetric.crawler2, function(x) ifelse(class(x) == "data.frame",x$Altmetric.score,0)),
           policy = sapply(altmetric.crawler2, function(x) ifelse(class(x) == "data.frame",ifelse(!is.null(x$stats.cited_by_policies_count),x$stats.cited_by_policies_count,0),0)),
           patent = sapply(altmetric.crawler2, function(x) ifelse(class(x) == "data.frame",ifelse(!is.null(x$stats.cited_by_patents_count),x$stats.cited_by_patents_count,0),0))
           )
# Adding new columns to bib_alt dataframe
bib_alt <- bib_alt %>%
   mutate(Altmetric.score = altmetric.summary$Altmetric.score, 
          policy = altmetric.summary$policy, 
          patent = altmetric.summary$patent)

# Defining the scoring function
score <- function(x) {
  case_when(
    x == 'Red' ~ 0,
    x == 'Amber' ~ 1,
    x == 'Green' ~ 3,
    x == 'Gold' ~ 4,
    TRUE ~ NA_real_
  )
}
# Apply the scoring function across all columns starting with "CEESAT"
sd <- sd %>%
  mutate(across(starts_with("CEESAT"), score, .names = "points_{.col}"))
# Sum all the points columns to create a 'total_points' column
sd <- sd %>%
  mutate(total_points = rowSums(select(., starts_with("points_")), na.rm = TRUE))

sd_bib_alt <- sd %>%
  left_join(bib_alt, by = "DOI")

# Converting policy to binary and dropping NAs
sd_bib_alt_policy <- sd_bib_alt %>%
  mutate(binary_policy = if_else(policy != 0, "Cited in Policy", "Not Cited in Policy")) %>%
  drop_na(binary_policy, total_points)

# Converting policy to binary and dropping NAs
sd_bib_alt_policy <- sd_bib_alt %>%
  mutate(binary_policy = if_else(policy != 0, "Cited in Policy", "Not Cited in Policy")) %>%
  drop_na(binary_policy, total_points)
percent_ceesat_score1 <- sd_bib_alt_policy %>%
  filter(!is.na(author_year)) %>%
  select(studies = author_year, binary_policy, starts_with("CEE")) %>%
  na.omit() %>%
  pivot_longer(cols = -c(studies, binary_policy), names_to = "question", values_to = "score") %>%
  group_by(binary_policy, question, score) %>%
  summarise(n = n(), .groups = 'drop') %>%
  mutate(percent = (n/sum(n))*100, 
         across(c(question, score), as.factor),
         question = fct_recode(question, 
           `1.1` = "CEESAT2_1.1",
           `2.1` = "CEESAT2_2.1",
           `3.1` = "CEESAT2_3.1",
           `3.2` = "CEESAT2_3.2",
           `4.1` = "CEESAT2_4.1",
           `4.2` = "CEESAT2_4.2",
           `4.3` = "CEESAT2_4.3",
           `5.1` = "CEESAT2_5.1",
           `5.2` = "CEESAT2_5.2",
           `6.1` = "CEESAT2_6.1",
           `6.2` = "CEESAT2_6.2",
           `6.3` = "CEESAT2_6.3",
           `7.1` = "CEESAT2_7.1",
           `7.2` = "CEESAT2_7.2",
           `7.3` = "CEESAT2_7.3",
           `8.1` = "CEESAT2_8.1"),
         question = factor(question, levels = rev(levels(question))),
         score = factor(score, levels = levels(score)[c(4,1,3,2)]))


fig2b <- ggplot(data = percent_ceesat_score1, aes(x = question, y = percent, fill = score)) +
  geom_col(width = 0.7, position = "fill", color = "black") +
  geom_text(aes(label = n), position = position_fill(vjust = 0.5), size = 7, fontface = "bold") +
  coord_flip() +
  guides(fill = guide_legend(reverse = TRUE)) +
  scale_fill_manual(values = c("#FF0000","#FFD700","#008000", "#DAA520"), name = "Score:") +
  scale_y_continuous(labels = scales::percent) +
  theme(panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(), 
        panel.background = element_blank(),
        axis.text.y = element_text(size = 20),
        axis.text.x = element_text(size = 20),
        axis.title.x = element_text(size = 25),
        axis.title.y = element_text(size = 25), 
        legend.position = "none",
        strip.text = element_text(size = 20),
        strip.background = element_blank(), 
        plot.tag = element_text(size = 25)) + 
  ylab("Percentage") + 
  xlab("CEESAT Question") +
  facet_wrap(~binary_policy) +
  labs(tag = "B")

fig2b

# ggsave(here("figures", "fig2b.pdf"), width = 25, height = 15, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "fig2b.jpg"), width = 25, height = 15, units = "cm", scale = 2, dpi = 800)


policy <- sd_bib_alt_policy$total_points[sd_bib_alt_policy$binary_policy == "Cited in Policy"]
not_policy <- sd_bib_alt_policy$total_points[sd_bib_alt_policy$binary_policy == "Not Cited in Policy"]

# QQ Plot
qqnorm(policy)
qqline(policy, col = "red")

# QQ Plot
qqnorm(not_policy)
qqline(not_policy, col = "red")

t.test(policy,not_policy)

## 
##  Welch Two Sample t-test
## 
## data:  policy and not_policy
## t = -0.28694, df = 74.924, p-value = 0.7749
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  -4.766893  3.566553
## sample estimates:
## mean of x mean of y 
##  13.15789  13.75806

sd_bib_alt_guideline <- sd_bib_alt %>% 
  mutate(binary_guideline = if_else(reporting_standards_type == "Not reported", "Not reported", "Reported")) %>% 
    drop_na(binary_guideline, total_points)

percent_ceesat_score2 <- sd_bib_alt_guideline %>%
  filter(!is.na(author_year)) %>%
  select(studies = author_year, binary_guideline, starts_with("CEE")) %>%
  na.omit() %>%
  pivot_longer(cols = -c(studies, binary_guideline), names_to = "question", values_to = "score") %>%
  group_by(binary_guideline, question, score) %>%
  summarise(n = n(), .groups = 'drop') %>%
  mutate(percent = (n/sum(n))*100, 
         across(c(question, score), as.factor),
         question = fct_recode(question, 
           `1.1` = "CEESAT2_1.1",
           `2.1` = "CEESAT2_2.1",
           `3.1` = "CEESAT2_3.1",
           `3.2` = "CEESAT2_3.2",
           `4.1` = "CEESAT2_4.1",
           `4.2` = "CEESAT2_4.2",
           `4.3` = "CEESAT2_4.3",
           `5.1` = "CEESAT2_5.1",
           `5.2` = "CEESAT2_5.2",
           `6.1` = "CEESAT2_6.1",
           `6.2` = "CEESAT2_6.2",
           `6.3` = "CEESAT2_6.3",
           `7.1` = "CEESAT2_7.1",
           `7.2` = "CEESAT2_7.2",
           `7.3` = "CEESAT2_7.3",
           `8.1` = "CEESAT2_8.1"),
         question = factor(question, levels = rev(levels(question))),
         score = factor(score, levels = levels(score)[c(4,1,3,2)]))

figs5 <- ggplot(data = percent_ceesat_score2, aes(x = question, y = percent, fill = score)) +
  geom_col(width = 0.7, position = "fill", color = "black") +
  geom_text(aes(label = n), position = position_fill(vjust = 0.5), size = 7, fontface = "bold") +
  coord_flip() +
  guides(fill = guide_legend(reverse = TRUE)) +
  scale_fill_manual(values = c("#FF0000","#FFD700","#008000", "#DAA520"), name = "Score:") +
  scale_y_continuous(labels = scales::percent) +
  theme(panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(), 
        panel.background = element_blank(),
        axis.text.y = element_text(size = 20),
        axis.text.x = element_text(size = 20),
        axis.title.x = element_text(size = 25),
        axis.title.y = element_text(size = 25), 
        legend.position = "top",  
        legend.justification = "left",  
        legend.direction = "horizontal",
        legend.box = "horizontal",  
        legend.box.just = "left",  
        legend.title.align = 0.5,  
        legend.key.size = unit(1, "cm"),  
        legend.title = element_text(size =25),
        legend.text = element_text(size = 25),  
        strip.text = element_text(size = 20),
        strip.background = element_blank()) +  
  ylab("Percentage") + 
  xlab("CEESAT Question") +
  facet_wrap(~binary_guideline) 

figs5

# ggsave(here("figures", "figs5.pdf"), width = 25, height = 15, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs5.jpg"), width = 25, height = 15, units = "cm", scale = 2, dpi = 800)

guidline <- sd_bib_alt_guideline$total_points[sd_bib_alt_guideline$binary_guideline == "Reported"]
no_guideline <- sd_bib_alt_guideline$total_points[sd_bib_alt_guideline$binary_guideline == "Not reported"]

# QQ Plot
 qqnorm(guidline)
 qqline(guidline, col = "red")

# QQ Plot
 qqnorm(no_guideline)
 qqline(no_guideline, col = "red")

t.test(guidline,no_guideline)

## 
##  Welch Two Sample t-test
## 
## data:  guidline and no_guideline
## t = 6.1128, df = 68.538, p-value = 5.269e-08
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##   6.091412 11.994595
## sample estimates:
## mean of x mean of y 
##  21.92105  12.87805

# Create the plot 
figs6 <- sd_bib_alt_policy %>%
 # filter(total_points != 0, policy != 0) %>% 
  ggplot(aes(x = total_points, y = policy)) +
  geom_point(color = "#1b9e77", alpha = 0.8, size = 8) +
  geom_smooth(method = lm, se = TRUE, color = "red") +
  labs(x = "Total CEESAT score", y = "Policy Count") +
  theme_minimal() +
  theme(panel.grid.major.y = element_blank(),
        axis.line.y = element_blank(),
        axis.ticks.y = element_blank(),
        axis.text.x = element_text(size = 25),
        axis.text.y = element_text(size = 25),
        axis.title.x = element_text(size = 30),
        axis.title.y = element_text(size = 30),
        plot.title = element_blank())

figs6

# ggsave(here("figures", "figs6.pdf"), width = 25, height = 15, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs6.jpg"), width = 25, height = 15, units = "cm", scale = 2, dpi = 800)

figs7 <- sd_bib_alt_policy %>%
  ggplot(aes(x = binary_policy, y = total_points)) +
  geom_violin(fill = "#1b9e77", alpha =0.2, color = NA, trim = FALSE) +
  geom_boxplot(width = 0.05, fill = "white", color = "#1b9e77", outlier.shape = NA) +
  geom_jitter(width = 0.1, height = 0.05, color = "#1b9e77", alpha = 0.8, size = 6) +
  scale_y_continuous(limits = c(0, max(sd_bib_alt$total_points))) +
  labs( x = "Policy", y = "Total CEESAT Score") +
  theme_minimal() +
  theme(panel.grid.major.y = element_blank(),
        axis.line.y = element_blank(),
        axis.ticks.y = element_blank(),
        axis.text.x = element_text(size = 25),
        axis.text.y = element_text(size = 25),
        axis.title.x = element_text(size = 30),
        axis.title.y = element_text(size = 30),
        plot.title = element_blank())

figs7

# ggsave(here("figures", "figs7.pdf"), width = 25, height = 15, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs7.jpg"), width = 25, height = 15, units = "cm", scale = 2, dpi = 800)

# Calculate the total count for each category
bias_method_count <- sd %>% 
  separate_rows(bias_assessment_method, sep = ",\\s+") %>% 
  count(bias_assessment_method) %>%
  filter(bias_assessment_method != "NA") %>%
    group_by(bias_assessment_method) %>%
  summarise(n = sum(n))

# Calculate proportion and percentage for each category
bias_method_pct <- bias_method_count %>%
  mutate(proportion = n / 83,
         percentage = proportion * 100)

# Create the count plot
fig3a <- bias_method_count %>%
  ggplot(aes(x = n, y = reorder(bias_assessment_method, n), fill = ifelse(grepl("Not reported", bias_assessment_method), "#7370b3", "#1b9e77"))) +
  geom_bar(stat = "identity", width = 0.8 , alpha = 0.7) +
  geom_text(aes(label = n, x = n / 2, y = reorder(bias_assessment_method, n)), hjust = 0.5, size = 12, color = "black") +
  geom_text(data = bias_method_pct, aes(label = paste0("(", round(percentage, 1), "%)"), x = n), 
            hjust = -0.1, size = 12, color = "black", fontface = "bold") +
  scale_fill_identity(guide = "none") +
  scale_x_continuous(expand = c(0, 0), limits = c(0, max(bias_method_count$n)*1.3)) +
  labs(title = "Publication Bias Count", x = NULL, y = NULL, tag = "A", size = 30) +
  organochlorTHEME() 

fig3a

# ggsave(here("figures", "fig3h.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "fig3h.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Data Transformation 
bias_assessment_alluvial <- sd %>% 
    separate_rows(bias_assessment_method, sep = ",\\s+") %>%
    separate_rows(Journal_Category_Allocated_Broad, sep = "/\\s+") %>% 
    filter(!is.na(bias_assessment_method)) %>%
    group_by(Journal_Category_Allocated_Broad, bias_assessment_method) %>% 
    count(bias_assessment_method, Journal_Category_Allocated_Broad) %>% 
    summarise(freq = n(), .groups = 'drop') %>% 
    group_by(bias_assessment_method)

# Create the Alluvial plot
figs8 <- bias_assessment_alluvial %>% 
  ggplot(aes(y = freq ,axis1 = Journal_Category_Allocated_Broad, axis2 = bias_assessment_method)) +
  scale_x_discrete(limits = c("Journal Citation Category", "Bias Assessment"), expand = c(.05, .05)) +
  xlab("Variables") +
  geom_alluvium(aes(fill = Journal_Category_Allocated_Broad)) +
  geom_stratum(width = 1/3.5, fill = "white", color = "black") +
  geom_text(stat = "stratum", aes(label = after_stat(stratum)), size = 6) +
  labs(x= "Variables", y = "Frequency", fill = "Journal Category Allocated") +
  scale_fill_brewer(palette = "Dark2") +
  organochlorTHEME() 

figs8

# ggsave(here("figures", "figs8.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs8.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Calculate the total count for each category
heterogeneity_count <- sd %>% 
  separate_rows(heterogeneity_assessment_method, sep = ",\\s+") %>% 
  count(heterogeneity_assessment_method) %>%
  filter(heterogeneity_assessment_method != "NA") %>%
    group_by(heterogeneity_assessment_method) %>%
  summarise(n = sum(n))

# Calculate proportion and percentage for each category
heterogeneity_pct <- heterogeneity_count %>%
  mutate(proportion = n / 83,
         percentage = proportion * 100)

# Create the count plot
fig3b <- heterogeneity_count %>%
  ggplot(aes(x = n, y = reorder(heterogeneity_assessment_method, n), fill = ifelse(grepl("Not reported", heterogeneity_assessment_method), "#7370b3", "#1b9e77"))) +
  geom_bar(stat = "identity", width = 0.8 , alpha = 0.7) +
  geom_text(aes(label = n, x = n / 2, y = reorder(heterogeneity_assessment_method, n)), hjust = 0.5, size = 12, color = "black") +
  geom_text(data = heterogeneity_pct, aes(label = paste0("(", round(percentage, 1), "%)"), x = n), 
            hjust = -0.1, size = 12, color = "black", fontface = "bold") +
  scale_fill_identity(guide = "none") +
  scale_x_continuous(expand = c(0, 0), limits = c(0, max(heterogeneity_count$n)*1.3)) +
  labs(title = "Heterogeneity Count", x = NULL, y = NULL, tag = "B", size = 30) +
  organochlorTHEME() 

fig3b

# ggsave(here("figures", "fig3b.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "fig3b.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Data Transformation 
heterogeneity_alluvial <- sd %>% 
    separate_rows(heterogeneity_assessment_method, sep = ",\\s+") %>%
    separate_rows(Journal_Category_Allocated_Broad, sep = "/\\s+") %>% 
    filter(!is.na(heterogeneity_assessment_method)) %>%
    group_by(Journal_Category_Allocated_Broad, heterogeneity_assessment_method) %>% 
    count(heterogeneity_assessment_method, Journal_Category_Allocated_Broad) %>% 
    summarise(freq = n(), .groups = 'drop') %>% 
    group_by(heterogeneity_assessment_method) 

# Create the Alluvial plot
figs9 <- heterogeneity_alluvial %>% 
ggplot(aes(y = freq ,axis1 = Journal_Category_Allocated_Broad, axis2 = heterogeneity_assessment_method)) +
  scale_x_discrete(limits = c("Journal Citation Category", "Heterogeneity"), expand = c(.05, .05)) +
  xlab("Variables") +
  geom_alluvium(aes(fill = Journal_Category_Allocated_Broad)) +
  geom_stratum(width = 1/4.5, fill = "white", color = "black") +
  geom_text(stat = "stratum", aes(label = after_stat(stratum)), size = 6) +
  labs(x= "Variables", y = "Frequency", fill = "Journal Category Allocated") +
  scale_fill_brewer(palette = "Dark2") +
  organochlorTHEME() 

figs9

# ggsave(here("figures", "figs9.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs9.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Calculate the total count for each category
sensitivity_count <- sd %>% 
  separate_rows(sensitivity_analysis_method, sep = ",\\s+") %>% 
  count(sensitivity_analysis_method) %>%
  filter(sensitivity_analysis_method != "NA") %>%   
  group_by(sensitivity_analysis_method) %>%
  summarise(n = sum(n))

# Calculate proportion and percentage for each category
sensitivity_pct <- sensitivity_count %>%
  mutate(proportion = n / 83,
         percentage = proportion * 100)

# Create the count plot
fig3c <- sensitivity_count %>%
  ggplot(aes(x = n, y = reorder(sensitivity_analysis_method, n), fill = ifelse(grepl("Not reported", sensitivity_analysis_method), "#7370b3", "#1b9e77"))) +
  geom_bar(stat = "identity", width = 0.8 , alpha = 0.7) +
  geom_text(aes(label = n, x = n / 2, y = reorder(sensitivity_analysis_method, n)), hjust = 0.5, size = 12, color = "black") +
  geom_text(data = sensitivity_pct, aes(label = paste0("(", round(percentage, 1), "%)"), x = n), 
            hjust = -0.1, size = 12, color = "black", fontface = "bold") +
  scale_fill_identity(guide = "none") +
  scale_x_continuous(expand = c(0, 0), limits = c(0, max(sensitivity_count$n)*1.3)) +
  labs(title = "Sensitivity Analysis Count", x = NULL, y = NULL, tag = "C", size = 30) +
  organochlorTHEME() 

fig3c

# ggsave(here("figures", "fig3c.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "fig3c.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Data Transformation 
sensitivity_analysis_alluvial <- sd %>% 
    separate_rows(sensitivity_analysis_method, sep = ",\\s+") %>%
    separate_rows(Journal_Category_Allocated_Broad, sep = "/\\s+") %>% 
    filter(!is.na(sensitivity_analysis_method)) %>%
    group_by(Journal_Category_Allocated_Broad, sensitivity_analysis_method) %>% 
    count(sensitivity_analysis_method, Journal_Category_Allocated_Broad) %>% 
    summarise(freq = n(), .groups = 'drop') %>% 
    group_by(sensitivity_analysis_method)

# Create the Alluvial plot
figs10 <- sensitivity_analysis_alluvial %>% 
ggplot(aes(y = freq ,axis1 = Journal_Category_Allocated_Broad, axis2 = sensitivity_analysis_method)) +
  scale_x_discrete(limits = c("Journal Citation Category", "Sensitivity Analysis"), expand = c(.05, .05)) +
  xlab("Variables") +
  geom_alluvium(aes(fill = Journal_Category_Allocated_Broad)) +
  geom_stratum(width = 1/4, fill = "white", color = "black") +
  geom_text(stat = "stratum", aes(label = after_stat(stratum)), size = 5) +
  labs(x= "Variables", y = "Frequency", fill = "Journal Category Allocated") +
  scale_fill_brewer(palette = "Dark2") +
  organochlorTHEME() 

figs10

# ggsave(here("figures", "figs10.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs10.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Calculate the total count for each category
reporting_guide_count <- sd %>% 
  separate_rows(reporting_standards_type, sep = ",\\s+") %>% 
  count(reporting_standards_type) %>%
  filter(reporting_standards_type != "NA") %>%
  mutate(reporting_standards_type = ifelse(n < 3, "Other Guidelines", as.character(reporting_standards_type))) %>%
  group_by(reporting_standards_type) %>%
  summarise(n = sum(n))

# Calculate proportion and percentage for each category
reporting_guide_pct <- reporting_guide_count %>%
  mutate(proportion = n / 83,
         percentage = proportion * 100)

# Create the count plot
fig3d <- reporting_guide_count %>%
  ggplot(aes(x = n, y = reorder(reporting_standards_type, n), fill = ifelse(grepl("Not reported", reporting_standards_type), "#7370b3", "#1b9e77"))) +
  geom_bar(stat = "identity", width = 0.8 , alpha = 0.7) +
  geom_text(aes(label = n, x = n / 2, y = reorder(reporting_standards_type, n)), hjust = 0.5, size = 12, color = "black") +
  geom_text(data = reporting_guide_pct, aes(label = paste0("(", round(percentage, 0), "%)"), x = n), 
            hjust = -0.1, size = 12, color = "black", fontface = "bold") +
  scale_fill_identity(guide = "none") +
 scale_x_continuous(expand = c(0, 0), limits = c(0, max(reporting_guide_count$n)*1.3)) +
  labs(title = "Reporting Guideline Count", x = NULL, y = NULL, size = 30) +
  organochlorTHEME() 

fig3d

# ggsave(here("figures", "fig3d.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "fig3d.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Data Transformation 
reporting_standards_alluvial <- sd %>% 
    separate_rows(reporting_standards_type, sep = ",\\s+") %>%
    separate_rows(Journal_Category_Allocated_Broad, sep = "/\\s+") %>%
    filter(!grepl("no category found", Journal_Category_Allocated_Broad, ignore.case = TRUE)) %>% 
    filter(!is.na(reporting_standards_type)) %>%
    group_by(Journal_Category_Allocated_Broad, reporting_standards_type) %>% 
    count(reporting_standards_type, Journal_Category_Allocated_Broad) %>% 
    summarise(freq = n(), .groups = 'drop') %>% 
    group_by(reporting_standards_type)

# Create the Alluvial plot
figs11 <- reporting_standards_alluvial %>% 
ggplot( aes(y = freq ,axis1 = Journal_Category_Allocated_Broad, axis2 = reporting_standards_type)) +
  scale_x_discrete(limits = c("Journal Citation Category", "Reporting Standards Type"), expand = c(.05, .05)) +
  xlab("Variables") +
  geom_alluvium(aes(fill = Journal_Category_Allocated_Broad)) +
  geom_stratum(width = 1/3.5, fill = "white", color = "black") +
  labs(x= "Variables", y = "Frequency", fill = "Journal Category Allocated") +
  geom_text(stat = "stratum", aes(label = after_stat(stratum)), size = 6) +
    scale_fill_brewer(palette = "Dark2") +
  organochlorTHEME() 

figs11

# ggsave(here("figures", "figs11.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs11.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

fig3 <- fig3a + fig3b + fig3c + fig3d +
        plot_layout(ncol = 2, nrow = 2)

## Error in eval(expr, envir, enclos): object 'fig3c' not found

fig3

## Error in eval(expr, envir, enclos): object 'fig3' not found

# ggsave(here("figures", "fig3.pdf"), width = 36 , height = 20 , units = "cm", scale = 2, dpi = 400)
# ggsave(here("figures", "fig3.jpg"), width = 36 , height = 20, units = "cm", scale = 2, dpi = 400)

# Calculate the total count for each category
database_count <- sd %>% 
  separate_rows(database_search, sep = ",\\s+") %>% 
  count(database_search) %>% 
  filter(database_search != "NA") %>% 
  arrange(desc(n)) %>% 
  mutate(database_search = ifelse(n<= 3, "Other databases", as.character(database_search))) %>% 
    group_by(database_search) %>%
  summarise(n = sum(n))

# Calculate proportion and percentage for each category
database_pct <- database_count %>%
  mutate(proportion = n / 83, # 83 is number of studies assessed for CEESAT
         percentage = proportion * 100)

# Create the count plot
figs12 <- database_count %>%
  ggplot(aes(x = n, y = reorder(database_search, n), fill = "#1b9e77")) +
  geom_bar(stat = "identity", width = 0.8 , alpha = 0.7) +
  geom_text(aes(label = n, x = n / 2, y = reorder(database_search, n)), hjust = 0.5, size = 12, color = "black") +
  geom_text(data = database_pct, aes(label = paste0("(", round(percentage, 1), "%)"), x = n), 
            hjust = -0.1, size = 12, color = "black", fontface = "bold") +
  scale_fill_identity(guide = "none") +
  scale_x_continuous(expand = c(0, 0), limits = c(0, max(database_count$n)*1.3)) +
  labs(title = NULL, x = NULL, y = NULL) +
  organochlorTHEME() 

figs12

# ggsave(here("figures", "figs12.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs12.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Rename Environmental Science
sd <- sd %>%
  mutate(Journal_Category_Allocated_Broad = str_replace(Journal_Category_Allocated_Broad, "Environmental Science", "Environmental\nScience"))

# Data Transformation 
database_alluvial <- sd %>% 
    separate_rows(database_search, sep = ",\\s+") %>%
    group_by(Journal_Category_Allocated_Broad, database_search) %>% 
    count(database_search, Journal_Category_Allocated_Broad) %>% 
    summarise(freq = n(), .groups = 'drop') %>% 
    group_by(database_search) %>% 
    filter(sum(freq) >= 3) %>% 
    filter(database_search != "NA")

# Create the Alluvial plot
figs13 <- database_alluvial %>% 
ggplot(aes(y = freq ,axis1 = Journal_Category_Allocated_Broad, axis2 = database_search)) +
  scale_x_discrete(limits = c("Journal Citation Report", "Database Search"), expand = c(.05, .05)) +
  xlab("Variables") +
  ylab("Frequency") +
  geom_alluvium(aes(fill = Journal_Category_Allocated_Broad)) +
  geom_stratum(width = 1/4.5, fill = "white", color = "black") +
  geom_text(stat = "stratum", aes(label = after_stat(stratum)), size = 6) +
  labs(x= "Variables", y = "Frequency", fill = "Journal Category Allocated") +
  scale_fill_brewer(palette = "Dark2") +
  organochlorTHEME() 

figs13

# ggsave(here("figures", "figs13.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs13.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Calculate the total count for each category
software_count <- sd %>%
  separate_rows(software_analysis, sep = ",\\s+") %>%
  mutate(software_analysis = ifelse(grepl("comprehensive meta-analysis", software_analysis), "CMAS", software_analysis)) %>%
  count(software_analysis) %>%
  filter(software_analysis != "NA") %>%
  arrange(desc(n)) %>%
  mutate(software_analysis = ifelse(n < 2, "Other Software", as.character(software_analysis))) %>%
  group_by(software_analysis) %>%
  summarise(n = sum(n))

# Calculate proportion and percentage for each category
software_pct <- software_count %>%
  mutate(proportion = n / 83,
         percentage = proportion * 100)

# Create the count plot
figs14 <- software_count %>%
  ggplot(aes(x = n, y = reorder(software_analysis, n), fill = "#1b9e77")) +
  geom_bar(stat = "identity", width = 0.8 , alpha = 0.7) +
  geom_text(aes(label = n, x = n / 2, y = reorder(software_analysis, n)), hjust = 0.5, size = 12, color = "black") +
  geom_text(data = software_pct, aes(label = paste0("(", round(percentage, 1), "%)"), x = n), 
            hjust = -0.1, size = 12, color = "black", fontface = "bold") +
  scale_fill_identity(guide = "none") +
  scale_x_continuous(expand = c(0, 0), limits = c(0, max(software_count$n)*1.3)) +
  labs(title = NULL, x = NULL, y = NULL) +
  organochlorTHEME() 

figs14

# ggsave(here("figures", "figs14.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs14.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Data Transformation 
software_analysis_alluvial <- sd %>% 
    separate_rows(software_analysis, sep = ",\\s+") %>%
    separate_rows(Journal_Category_Allocated_Broad, sep = "/\\s+") %>% 
  mutate(software_analysis = ifelse(grepl("comprehensive meta-analysis", software_analysis), "CMAS", software_analysis)) %>%
  mutate(software_analysis = ifelse(grepl("not reported", software_analysis), "no software reported", software_analysis))  %>% 
    filter(!is.na(software_analysis)) %>%
    group_by(Journal_Category_Allocated_Broad, software_analysis) %>% 
    count(software_analysis, Journal_Category_Allocated_Broad) %>% 
    summarise(freq = n(), .groups = 'drop') %>% 
    group_by(software_analysis)

# Create the Alluvial plot for Software Analysis
figs15 <- software_analysis_alluvial %>% 
  ggplot(aes(y = freq ,axis1 = Journal_Category_Allocated_Broad, axis2 = software_analysis)) +
  scale_x_discrete(limits = c("Journal Citation Category", "Software Analysis"), expand = c(.05, .05)) +
  xlab("Variables") +
  geom_alluvium(aes(fill = Journal_Category_Allocated_Broad)) +
  geom_stratum(width = 1/4, fill = "white", color = "black") +
  geom_text(stat = "stratum", aes(label = after_stat(stratum)), size = 6) +
  labs(x= "Variables", y = "Frequency", fill = "Journal Category Allocated") +
  scale_fill_brewer(palette = "Dark2") +
  organochlorTHEME() 

figs15

# ggsave(here("figures", "figs15.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs15.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Calculate the total count for each category
effectsize_count <- sd %>% 
  separate_rows(effect_size, sep = ",\\s+") %>% 
  count(effect_size) %>%
  filter(effect_size != "NA") %>%
  mutate(effect_size = ifelse(n<= 2, "Other effect size", as.character(effect_size))) %>% 
  group_by(effect_size) %>%
  summarise(n = sum(n))

# Calculate proportion and percentage for each category
effectsize_pct <- effectsize_count %>%
  mutate(proportion = n / 83,
         percentage = proportion * 100)

# Create the count plot
figs16 <-  effectsize_count %>%
  ggplot(aes(x = n, y = reorder(effect_size, n), fill = "#1b9e77")) +
  geom_bar(stat = "identity", width = 0.8 , alpha = 0.7) +
  geom_text(aes(label = n, x = n / 2, y = reorder(effect_size, n)), hjust = 0.5, size = 12, color = "black") +
  geom_text(data = effectsize_pct, aes(label = paste0("(", round(percentage, 1), "%)"), x = n), 
            hjust = -0.1, size = 12, color = "black", fontface = "bold") +
  scale_fill_identity(guide = "none") +
  scale_x_continuous(expand = c(0, 0), limits = c(0, max(effectsize_count$n)*1.3)) +
  labs(title = NULL, x = NULL, y = NULL) +
  organochlorTHEME() 

figs16

# ggsave(here("figures", "figs16.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs16.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Data Transformation 
effectsize_alluvial <- sd %>% 
    separate_rows(effect_size, sep = ",\\s+") %>%
    separate_rows(Journal_Category_Allocated_Broad, sep = "/\\s+") %>% 
    filter(!grepl("no category found", Journal_Category_Allocated_Broad, ignore.case = TRUE)) %>% 
    filter(!is.na(effect_size)) %>%
    group_by(Journal_Category_Allocated_Broad, effect_size) %>% 
    count(effect_size, Journal_Category_Allocated_Broad) %>% 
    summarise(freq = n(), .groups = 'drop') %>% 
    group_by(effect_size) 


# Create the Alluvial plot
figs17 <- effectsize_alluvial %>% 
ggplot(aes(y = freq ,axis1 = Journal_Category_Allocated_Broad, axis2 = effect_size)) +
  scale_x_discrete(limits = c("Journal Citation Category", "Effect Size"), expand = c(.05, .05)) +
  xlab("Variables") +
  geom_alluvium(aes(fill = Journal_Category_Allocated_Broad)) +
  geom_stratum(width = 1/2.5, fill = "white", color = "black") +
  geom_text(stat = "stratum", aes(label = after_stat(stratum)), size = 5) +
  theme_minimal() +
  labs(x= "Variables", y = "Frequency", fill = "Journal Category Allocated") +
  scale_fill_brewer(palette = "Dark2") +
  organochlorTHEME() 
  
figs17

# ggsave(here("figures", "figs17.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs17.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Calculate the total count for each category
visualization_count <- sd %>% 
  separate_rows(visualization_method, sep = ",\\s+") %>% 
  count(visualization_method) %>%
  filter(visualization_method != "NA") %>%
    group_by(visualization_method) %>%
  summarise(n = sum(n))

# Calculate proportion and percentage for each category
visualization_pct <- visualization_count %>%
  mutate(proportion = n / 83,
         percentage = proportion * 100)

# Create the count plot
figs18 <- visualization_count %>%
  ggplot(aes(x = n, y = reorder(visualization_method, n), fill = ifelse(grepl("Not reported", visualization_method), "#7370b3", "#1b9e77"))) +
  geom_bar(stat = "identity", width = 0.8 , alpha = 0.7) +
  geom_text(aes(label = n, x = n / 2, y = reorder(visualization_method, n)), hjust = 0.5, size = 12, color = "black") +
  geom_text(data = visualization_pct, aes(label = paste0("(", round(percentage, 0), "%)"), x = n), 
            hjust = -0.1, size = 12, color = "black", fontface = "bold") +
  scale_fill_identity(guide = "none") +
  scale_x_continuous(expand = c(0, 0), limits = c(0, max(visualization_count$n)*1.3)) +
  labs(title = NULL, x = NULL, y = NULL) +
  organochlorTHEME() 

figs18

# ggsave(here("figures", "figs18.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs18.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Data Transformation 
visualization_alluvial <- sd %>% 
    separate_rows(visualization_method, sep = ",\\s+") %>%
    filter(!is.na(visualization_method)) %>%
    separate_rows(Journal_Category_Allocated_Broad, sep = "/\\s+") %>%
    group_by(Journal_Category_Allocated_Broad, visualization_method) %>% 
    count(visualization_method, Journal_Category_Allocated_Broad) %>% 
    summarise(freq = n(), .groups = 'drop') %>% 
    group_by(visualization_method) 


# Create the Alluvial plot
figs19 <- visualization_alluvial %>% 
ggplot(aes(y = freq ,axis1 = Journal_Category_Allocated_Broad, axis2 = visualization_method)) +
  scale_x_discrete(limits = c("Journal Citation Report Category", "ROB Assessment Method"), expand = c(.05, .05)) +
  xlab("Variables") +
  geom_alluvium(aes(fill = Journal_Category_Allocated_Broad)) +
  geom_stratum(width = 1/4, fill = "white", color = "black") +
  geom_text(stat = "stratum", aes(label = after_stat(stratum)), size = 6) +
  labs(x= "Variables", y = "Frequency", fill = "Journal Category Allocated") +
  scale_fill_brewer(palette = "Dark2") +
  organochlorTHEME() 

figs19

# ggsave(here("figures", "figs19.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs19.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Calculate the total count for each category
rob_method_count <- sd %>% 
  separate_rows(rob_assessment_method, sep = ",\\s+") %>% 
  count(rob_assessment_method) %>%
  filter(rob_assessment_method != "NA") %>%
  mutate(rob_assessment_method = ifelse(n<= 2, "Other ROB tool", as.character(rob_assessment_method))) %>% 
  mutate(rob_assessment_method = ifelse(grepl("Newcastle Ottawa scale", rob_assessment_method), "Newcastle Ottawa\nscale", rob_assessment_method)) %>%
  group_by(rob_assessment_method) %>%
  summarise(n = sum(n))

# Calculate proportion and percentage for each category
rob_method_pct <- rob_method_count %>%
  mutate(proportion = n / 83,
         percentage = proportion * 100)

# Create the count plot
figs20 <- rob_method_count %>%
  ggplot(aes(x = n, y = reorder(rob_assessment_method, n), fill = ifelse(grepl("Not reported", rob_assessment_method), "#7370b3", "#1b9e77"))) +
  geom_bar(stat = "identity", width = 0.8 , alpha = 0.7) +
  geom_text(aes(label = n, x = n / 2, y = reorder(rob_assessment_method, n)), hjust = 0.5, size = 12, color = "black") +
  geom_text(data = rob_method_pct, aes(label = paste0("(", round(percentage, 0), "%)"), x = n), 
            hjust = -0.1, size = 12, color = "black", fontface = "bold") +
  scale_fill_identity(guide = "none") +
  scale_x_continuous(expand = c(0, 0), limits = c(0, max(rob_method_count$n)*1.3)) +
  labs(title = NULL, x = NULL, y = NULL) +
  organochlorTHEME() 

figs20

# ggsave(here("figures", "figs20.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs20.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Data Transformation 
robmethod_alluvial <- sd %>% 
     separate_rows(rob_assessment_method, sep = ",\\s+") %>%
    filter(!is.na(rob_assessment_method)) %>%
    separate_rows(Journal_Category_Allocated_Broad, sep = "/\\s+") %>%
    group_by(Journal_Category_Allocated_Broad, rob_assessment_method) %>% 
    count(rob_assessment_method, Journal_Category_Allocated_Broad) %>% 
    summarise(freq = n(), .groups = 'drop') %>% 
    group_by(rob_assessment_method) 


# Create the Alluvial plot
figs21 <- robmethod_alluvial %>% 
ggplot(aes(y = freq ,axis1 = Journal_Category_Allocated_Broad, axis2 = rob_assessment_method)) +
  scale_x_discrete(limits = c("Journal Citation Category", "ROB Assessment Method"), expand = c(.05, .05)) +
  xlab("Variables") +
  geom_alluvium(aes(fill = Journal_Category_Allocated_Broad)) +
  geom_stratum(width = 1/3, fill = "white", color = "black") +
  geom_text(stat = "stratum", aes(label = after_stat(stratum)), size = 5) +
  labs(x= "Variables", y = "Frequency", fill = "Journal Category Allocated") +
  scale_fill_brewer(palette = "Dark2") +
  organochlorTHEME() 

figs21

# ggsave(here("figures", "figs21.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs21.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Calculate the total count for each category
bias_visualization_count <- sd %>% 
  separate_rows(bias_assessment_visualization, sep = ",\\s+") %>% 
  count(bias_assessment_visualization) %>%
  filter(bias_assessment_visualization != "NA") %>%
    group_by(bias_assessment_visualization) %>%
  summarise(n = sum(n))

# Calculate proportion and percentage for each category
bias_visualization_pct <- bias_visualization_count %>%
  mutate(proportion = n / 83,
         percentage = proportion * 100)

# Create the count plot
figs22 <- bias_visualization_count %>%
  ggplot(aes(x = n, y = reorder(bias_assessment_visualization, n), fill = ifelse(grepl("Not reported", bias_assessment_visualization), "#7370b3", "#1b9e77"))) +
  geom_bar(stat = "identity", width = 0.8 , alpha = 0.7) +
  geom_text(aes(label = n, x = n / 2, y = reorder(bias_assessment_visualization, n)), hjust = 0.5, size = 12, color = "black") +
  geom_text(data = bias_visualization_pct, aes(label = paste0("(", round(percentage, 1), "%)"), x = n), 
            hjust = -0.1, size = 12, color = "black", fontface = "bold") +
  scale_fill_identity(guide = "none") +
  scale_x_continuous(expand = c(0, 0), limits = c(0, max(bias_visualization_count$n)*1.3)) +
  labs(title = NULL, x = NULL, y = NULL) +
  organochlorTHEME() 

figs22

# ggsave(here("figures", "figs22.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs22.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Data Transformation 
bias_vizualisation_alluvial <- sd %>% 
    separate_rows(bias_assessment_visualization, sep = ",\\s+") %>%
    separate_rows(Journal_Category_Allocated_Broad, sep = "/\\s+") %>% 
    filter(!is.na(bias_assessment_visualization)) %>%
    group_by(Journal_Category_Allocated_Broad, bias_assessment_visualization) %>% 
    count(bias_assessment_visualization, Journal_Category_Allocated_Broad) %>% 
    summarise(freq = n(), .groups = 'drop') %>% 
    group_by(bias_assessment_visualization)

# Create the Alluvial plot
figs23 <- bias_vizualisation_alluvial %>% 
  ggplot(aes(y = freq ,axis1 = Journal_Category_Allocated_Broad, axis2 = bias_assessment_visualization)) +
  scale_x_discrete(limits = c("Journal Citation Category", "Bias Vizualization"), expand = c(.05, .05)) +
  xlab("Variables") +
  geom_alluvium(aes(fill = Journal_Category_Allocated_Broad)) +
  geom_stratum(width = 1/4, fill = "white", color = "black") +
  geom_text(stat = "stratum", aes(label = after_stat(stratum)), size = 6) +
  labs(x= "Variables", y = "Frequency", fill = "Journal Category Allocated") +
  scale_fill_brewer(palette = "Dark2") +
  organochlorTHEME() 

figs23

# ggsave(here("figures", "figs23.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs23.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Grouping "Medline" and "Pubmed" under "PubMed" and summing the counts
database_count <- database_count %>%
  mutate(database_search = if_else(database_search %in% c("Medline", "Pubmed"), "PubMed", database_search)) %>%
  group_by(database_search) %>%
  summarise(n = sum(n))

# Splitting, grouping, and summing different categories of effect sizes
effectsize_count <- sd %>% 
  separate_rows(effect_size, sep = ",\\s+") %>% 
  count(effect_size) %>%
  filter(effect_size != "NA") %>%
  group_by(effect_size) %>%
  summarise(n = sum(n))

effectsize_count <- effectsize_count %>% 
  mutate(effect_size = if_else(effect_size %in% c("Beta regression", "Correlation coefficient"), "Correlation", effect_size)) %>% 
  mutate(effect_size = if_else(effect_size %in% c("Odds ratio", "Response ratio", "Standardized mean difference", "Log partitioning ratio", "Log odds ratio", "Ratio of means", "Log response ratio"), "Mean difference", effect_size)) %>% 
  mutate(effect_size = if_else(effect_size %in% c("Risk ratio"), "2x2", effect_size)) %>% 
  mutate(effect_size = if_else(effect_size %in% c("Raw weight", "Geometric mean", "Maternal transfer ratio", "Standardized mortality rate", "Transfer rate","Transfer ratio", "Z-score", "Log coefficient variation ratio"), "Other ES", effect_size)) %>% 
  group_by(effect_size) %>%
  summarise(n = sum(n))

# Categorizing software as either "Code-based software" or "GUI" and summing the counts
software_count <- software_count %>%
  mutate(software_analysis = if_else(software_analysis %in% c("Stata", "R"), "Code-based", software_analysis)) %>%
  mutate(software_analysis = if_else(software_analysis %in% c("CMAS", "Excel", "RevMan", "SAS", "XLSTAT"), "GUI", software_analysis)) %>% 
  mutate(software_analysis = if_else(software_analysis %in% c("Not reported"), "No software reported", software_analysis)) %>%
  group_by(software_analysis) %>%
  summarise(n = sum(n))

# Grouping heterogeneity assessment methods and summing the counts
heterogeneity_count <- heterogeneity_count %>% 
  mutate(heterogeneity_assessment_method = if_else(heterogeneity_assessment_method %in% c("Tau square"), "I squared", heterogeneity_assessment_method)) %>% 
  mutate(heterogeneity_assessment_method = if_else(heterogeneity_assessment_method %in% c("Chi square"), "Q statistic", heterogeneity_assessment_method)) %>% 
  mutate(heterogeneity_assessment_method = if_else(heterogeneity_assessment_method %in% c("Not reported"), "No heterogeneity reported", heterogeneity_assessment_method)) %>% 
  group_by(heterogeneity_assessment_method) %>%
  summarise(n = sum(n))

# Grouping bias assessment methods with count <= 3 under "Other BA" and summing the counts
bias_method_count <- bias_method_count %>% 
  mutate(bias_assessment_method = if_else(bias_assessment_method %in% c("Egger's regression test", "Fail safe", "Begg's test", "Kendall's tau statistic"),"Bias statistical test", bias_assessment_method)) %>% 
    mutate(bias_assessment_method = if_else(bias_assessment_method %in% c("Not reported"),"No bias assessment reported", bias_assessment_method)) %>% 
  group_by(bias_assessment_method) %>%
  summarise(n = sum(n))

# Grouping sensitivity analysis methods and summing the counts
sensitivity_count <-  sensitivity_count %>%  
  mutate(sensitivity_analysis_method = if_else(n<= 8, "Other sensitivity analysis", as.character(sensitivity_analysis_method))) %>% 
   mutate(sensitivity_analysis_method = if_else(sensitivity_analysis_method %in% c("Not reported"), "No sensitivity analysis reported",sensitivity_analysis_method)) %>% 
  group_by(sensitivity_analysis_method) %>%
  summarise(n = sum(n))

# Grouping risk of bias assessment methods with count <= 3 under "Other ROB" and summing the counts
rob_method_count <-  rob_method_count %>%  
  mutate(rob_assessment_method = if_else(n<= 3, "Other ROB tool", as.character(rob_assessment_method))) %>% 
    mutate(rob_assessment_method = if_else(rob_assessment_method %in% c("Not reported"), "No risk of bias reported", rob_assessment_method)) %>% 
  group_by(rob_assessment_method) %>%
  summarise(n = sum(n))

# Grouping visualization methods with count <= 3 under "Other Viz" and summing the counts
visualization_count <- visualization_count %>% 
   mutate(visualization_method = if_else(n<= 3, "Other Viz", as.character(visualization_method))) %>% 
  mutate(visualization_method = if_else(visualization_method %in% c("Not reported"), "No vizualization reported", visualization_method)) %>% 
  group_by(visualization_method) %>%
  summarise(n = sum(n))

# Grouping reporting standards types with count <= 2 under "Other guideline" and summing the counts
reporting_guide_count <- reporting_guide_count %>% 
  mutate(reporting_standards_type = ifelse(n<= 2, "Other guideline", as.character(reporting_standards_type))) %>% 
  mutate(reporting_standards_type = ifelse(reporting_standards_type %in% c("Not reported"), "No reporting guideline reported",reporting_standards_type)) %>% 
  group_by(reporting_standards_type) %>%
  summarise(n = sum(n))

# Grouping bias assessment visualization types and summing the counts
bias_visualization_count <- bias_visualization_count %>% 
  mutate(bias_assessment_visualization = if_else(bias_assessment_visualization %in% c("Doi plot", "Trim and fill", "Funnel plot", "Galbraith plot"), "Bias visualization", bias_assessment_visualization)) %>% 
  mutate(bias_assessment_visualization = if_else(bias_assessment_visualization %in% c("Not reported"), "No bias visualization reported", bias_assessment_visualization)) %>% 
  group_by(bias_assessment_visualization) %>%
  summarise(n = sum(n))

# Combine the data frames and unite the methodology types
df <- bind_rows(
  database_count %>% mutate(methodology_type = 'Database Search'),
  effectsize_count %>% mutate(methodology_type = 'Effect Size'),
  software_count %>%  mutate(methodology_type = "Software"),
  heterogeneity_count %>% mutate(methodology_type = "Heterogeneity"),
  sensitivity_count %>% mutate(methodology_type = "Sensitivity_Analysis"),
  bias_method_count %>%  mutate(methodology_type = "Bias Assessment"),
  rob_method_count %>% mutate(methodology_type = "Risk  of Bias"), 
 # visualization_count %>% mutate(methodology_type = "Visualization"),
  reporting_guide_count %>%  mutate(methodology_type = "Reporting Guide"),
  bias_visualization_count %>%  mutate(methodology_type = "Bias Assessment")
) %>% 
 unite(methodology_type_specific, 
       database_search, 
       effect_size,  
       software_analysis,
       heterogeneity_assessment_method, 
       sensitivity_analysis_method, 
       bias_assessment_method,
       rob_assessment_method, 
      # visualization_method, 
       reporting_standards_type, 
       bias_assessment_visualization,
       remove = TRUE, na.rm = TRUE)

# Preparing the edges dataframe for creating the graph
edges <- df %>%
  rename(from = methodology_type, to = methodology_type_specific, size = n) %>%
  select(c(from,to,size)) %>%
  as.data.frame()

# Preparing the vertices dataframe for creating the graph
vertices <- df  %>%
  rename(name = methodology_type_specific, size = n) %>%
  select(c(name,size)) %>%
  as.data.frame()

# Appending unique 'from' values to vertices and their corresponding summed sizes
vertices[(nrow(edges)+1):(nrow(edges)+length(unique(edges$from))),1] <- unique(edges$from)
N <- aggregate(edges$size, list(edges$from), FUN=sum)
vertices[(nrow(edges)+1):(nrow(edges)+length(unique(edges$from))),2] <- N$x

# Creating a graph object from the edges and vertices dataframes
mygraph <- graph_from_data_frame(edges, vertices = vertices)

# Plotting the graph using a 'circlepack' layout, adding labels and adjusting aesthetics

figs24 <- ggraph(mygraph, layout = 'circlepack', weight = size) + 
    geom_node_circle(aes(fill = as.factor(depth)), color = NA) +
    scale_fill_manual(values = c("#1b9e77", "#88D1AD")) + 
    geom_node_text(aes(label = name, filter = leaf, size = 10), vjust = -0.3, fontface = "bold") +
    geom_node_text(aes(label = paste0("(", size, ")"), filter = leaf, size = 10), vjust = 1, fontface = "bold") +
    theme_void() +
    theme(legend.position = "none") 

figs24

ggsave(here("figures", "figs24.pdf"), width = 18, height = 15, units = "cm", scale = 2, dpi = 800)
ggsave(here("figures", "figs24.jpg"), width = 18, height = 15, units = "cm", scale = 2, dpi = 800)

# Function to replace long OCP names with abbreviations
replace_ocp <- function(df) {
  df %>% 
    mutate(ocp = case_when(
      # HCH related replacements
      grepl("Hexachlorocyclohexane \\(HCH\\)", ocp, ignore.case = TRUE) ~ "HCH",
      grepl("alpha-Hexachlorocyclohexane \\(alpha-HCH\\)", ocp, ignore.case = TRUE) ~ "α - HCH",
      grepl("beta-Hexachlorocyclohexane \\(beta-HCH\\)", ocp, ignore.case = TRUE) ~ "β - HCH",
      grepl("gamma-Hexachlorocyclohexane \\(gamma-HCH\\)", ocp, ignore.case = TRUE) ~ "Lindane",
      # DDT related replacements
      grepl("Dichlorodiphenyltrichloroethane \\(DDT\\)", ocp, ignore.case = TRUE) ~ "DDT",
      grepl("p,p-Dichlorodiphenyltrichloroethane \\(p,p-DDT\\)", ocp, ignore.case = TRUE) ~ "p,p-DDT",
      grepl("o,p-Dichlorodiphenyltrichloroethane \\(o,p-DDT\\)", ocp, ignore.case = TRUE) ~ "o,p-DDT",
      # DDD related replacements
      grepl("Dichlorodiphenyldichloroethane \\(DDD\\)", ocp, ignore.case = TRUE) ~ "DDD",
      grepl("p,p-Dichlorodiphenyldichloroethane \\(p,p-DDD\\)", ocp, ignore.case = TRUE) ~ "p,p-DDD",
      grepl("o,p-Dichlorodiphenyldichloroethane \\(o,p-DDD\\)", ocp, ignore.case = TRUE) ~ "o,p-DDD",
      # DDE related replacements
      grepl("Dichlorodiphenyldichloroethylene \\(DDE\\)", ocp, ignore.case = TRUE) ~ "DDE",
      grepl("p,p-Dichlorodiphenyldichloroethylene \\(p,p-DDE\\)", ocp, ignore.case = TRUE) ~ "p,p-DDE",
      grepl("o,p-Dichlorodiphenyldichloroethylene \\(o,p-DDE\\)", ocp, ignore.case = TRUE) ~ "o,p-DDE",
      TRUE ~ ocp  # no change for any others
    ))
}
# Transform the data 
ocp_count <-
  ocp %>% 
  separate_rows(ocp, sep = ",\\s+") %>% 
  replace_ocp %>% 
  count(ocp) %>% 
  filter(!is.na(ocp)) %>% # filter out NA 
  arrange(desc(n)) %>% 
  mutate(ocp = ifelse(n <= 6, "other OCP", as.character(ocp))) %>% 
# Other organochlorine pesticides include: toxaphene (n=6), Methoxychlor (n=6), p,p-DDD (n=5), o,p-DDD (n=5), cis-Chlordane (n=5), trans=Chlordane (n=4), Endosulfan II (n=4), Endosulfan (n=3),o,p-DDD (n=3), cis-Nonachlor (n=3) y-Chlordane (n=2), Chlorophenol (n=2), beta-BHC (n=2), alpha-Chlordane (n=2), TCDD (n=1), Nonachlore (n=1), Endrin ketone (n=1), Endrin Aldehyde (n=1), Endosulfan sulfate (n=1), Dicofol (n=1), delta-HCH (n=1), delta-BHC (n=1), DDD (n=1), cis-Heptachlor (n=1), alpha-BHC (n=1).
  group_by(ocp) %>% 
  summarise(n =sum(n))

# Calculate the proportion and percentage of each OCP
ocp_pct <- ocp_count %>%
  mutate(proportion = n/104,
         percentage = proportion*100)


# Create the count plot for OCPs
figs25 <- ocp_count %>%
  ggplot(aes(x = n, y = reorder(ocp, n), fill = "#1b9e77")) +
  geom_bar(stat = "identity", width = 0.8, alpha = 0.7) +
  geom_text(aes(label = n, x = n / 2, y = reorder(ocp, n)), hjust = 0.5, size = 7, color = "black") +
  geom_text(data = ocp_pct, aes(label = paste0("(", round(percentage, 1), "%)"), x = n), 
            hjust = - 0.1, size = 7, color = "black", fontface = "bold") +
  scale_fill_identity(guide = "none") +
  scale_x_continuous(name = "Article Count", expand = c(0, 0), limits = c(0, max(ocp_count$n)*1.2)) +
  labs(title = NULL, x = NULL, y = NULL) +
  organochlorTHEME() +
  theme(axis.text.y = element_text(size = 20))  

figs25

# ggsave(here("figures", "figs25.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs25.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Calculate total count for each category
subject_count <- sub %>% 
  separate_rows(subject, sep = ",\\s+") %>% 
  mutate(subject = ifelse(grepl("Non-human animal", subject, ignore.case = TRUE), "Non-human\nanimal", subject)) %>% 
  count(subject)
   

# Calculate proportion and percentage for each category
subject_pct <- subject_count %>%
  mutate(proportion = n/105,
         percentage = proportion*100)

# Create the count plot for subjects
figs26 <- subject_count %>%
  ggplot(aes(x = n, y = reorder(subject, n), fill = "#1b9e77")) +
  geom_bar(stat = "identity", width = 0.8 , alpha = 0.7) +
  geom_text(aes(label = n, x = n / 2, y = reorder(subject, n)), hjust = 0.5, size = 12, color = "black") +
  geom_text(data = subject_pct, aes(label = paste0("(", round(percentage, 1), "%)"), x = n), 
            hjust = -0.1, size = 12, color = "black", fontface = "bold") +
  scale_fill_identity(guide = "none") +
  scale_x_continuous(name = "Article Count", expand = c(0, 0), limits = c(0, max(subject_count$n)*1.2)) +
  labs(title = NULL, x = NULL, y = NULL) +
  organochlorTHEME()   


figs26

# ggsave(here("figures", "figs26.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs26.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Calculate total count for each category
impact_count <- 
  im %>% 
    separate_rows(impact, sep = ",\\s+") %>% 
    count(impact) %>% 
  filter(impact != "NA") %>%
  mutate(impact = ifelse(n<= 2, "other", as.character(impact))) %>% 
    group_by(impact) %>%
  summarise(n = sum(n))

# Calculate proportion and percentage for each category
impact_pct <- impact_count %>%
  mutate(proportion = n/sum(impact_count$n),
         percentage = proportion*100)

# Create the count plot for impacts 
figs27 <- impact_count %>%
  ggplot(aes(x = n, y = reorder(impact, n), fill = "#1b9e77")) +
  geom_bar(stat = "identity", width = 0.8 , alpha = 0.7) +
  geom_text(aes(label = n, x = n / 2, y = reorder(impact, n)), hjust = 0.5, size = 10, color = "black") +
  geom_text(data = impact_pct, aes(label = paste0("(", round(percentage, 1), "%)"), x = n), 
            hjust = -0.1, size = 10, color = "black", fontface = "bold") +
  scale_fill_identity(guide = "none") +
  scale_x_continuous(name = "Article Count", expand = c(0, 0), limits = c(0, max(impact_count$n)*1.3)) +
  labs(title = NULL, x = NULL, y = NULL) +
  organochlorTHEME() 

figs27

# ggsave(here("figures", "figs27.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs27.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Create a collumn for broad impacts
im <- im %>%
        separate_rows(impact, sep = ",\\s+") %>% 
  mutate(impact_broad = case_when(
    impact %in% c("parkinsons disease", "alzheimers disease", "autism spectrum disorder", "brain tumour", "amyotrophic lateral sclerosis" ) ~ "Neurological",
    impact %in% c("concentration", "contamination") ~ "Concentration",
    impact %in% c("diabetes", "thyroid function", "hypertension", "endometriosis") ~ "Endocrine",
    grepl("cancer", impact, ignore.case = TRUE) | impact %in% c("leukemia", "lymphoma", "multiple myeloma", "neuroblastoma") ~ "Carcinogen",
    impact %in% c("respiratory health", "cardiovascular disease", "asthma", "prolonged bradycardia") ~ "Cardiovascular",
 #   impact %in% c("birth outcomes", "birth weight", "preterm birth") ~ "Birth",
    impact %in% c("obesity", "adiposity") ~ "Obesity",
    impact %in% c("sperm quality", "neuroblastoma", "hypospadias", "cryptochidism", "reproductive system") ~ "Reproduction",
    TRUE ~ "Other Impact"
  ))


# Calculate total count for each category
impact_count_broad <- 
  im %>% 
    separate_rows(impact_broad, sep = ",\\s+") %>% 
    count(impact_broad) %>% 
  filter(impact_broad != "NA") %>%
    group_by(impact_broad) %>%
  summarise(n = sum(n))

# Calculate proportion and percentage for each category
impact_pct_broad <- impact_count_broad %>%
  mutate(proportion = n/105,
         percentage = proportion*100)


# Create the count plot for impacts 
figs28 <- impact_count_broad %>%
  ggplot(aes(x = n, y = reorder(impact_broad, n), fill = "#1b9e77")) +
  geom_bar(stat = "identity", width = 0.8 , alpha = 0.7) +
  geom_text(aes(label = n, x = n / 2, y = reorder(impact_broad, n)), hjust = 0.5, size = 10, color = "black") +
  geom_text(data = impact_pct_broad, aes(label = paste0("(", round(percentage, 1), "%)"), x = n), 
            hjust = -0.1, size = 10, color = "black", fontface = "bold") +
  scale_fill_identity(guide = "none") +
  scale_x_continuous(name = "Article Count", expand = c(0, 0), limits = c(0, max(impact_count_broad$n)*1.3)) +
  labs(title = NULL, x = NULL, y = NULL) +
  organochlorTHEME()

figs28

# ggsave(here("figures", "figs28.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs28.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)

# Function to change OCP to be more general
replace_ocp2 <- function(df) {
  df %>% 
  mutate(ocp = case_when(
    grepl("Chlordane", ocp, ignore.case = TRUE) ~ "Chlordane",  
    grepl("Endosulfan", ocp, ignore.case = TRUE) ~ "Endosulfan", 
    grepl("Nonachlor", ocp, ignore.case = TRUE) ~ "Nonachlore", 
    grepl("Heptachlor", ocp, ignore.case = TRUE) ~ "Heptachlor",
    grepl("TCDD", ocp, ignore.case = TRUE) ~ "TCDD", 
    grepl("Endrin", ocp, ignore.case = TRUE) ~ "Endrin",
    grepl("Hexachlorobenzene", ocp, ignore.case = TRUE) ~ "HCH",
    grepl("Lindane", ocp, ignore.case = TRUE) ~ "HCH", 
    grepl("Hexachlorocyclohexane \\(HCH\\)", ocp, ignore.case = TRUE) ~ "HCH",
    grepl("alpha-Hexachlorocyclohexane \\(alpha-HCH\\)", ocp, ignore.case = TRUE) ~ "HCH",
    grepl("beta-Hexachlorocyclohexane \\(beta-HCH\\)", ocp, ignore.case = TRUE) ~ "HCH",
    grepl("gamma-Hexachlorocyclohexane \\(gamma-HCH\\)", ocp, ignore.case = TRUE) ~ "HCH",
    grepl("Dichlorodiphenyltrichloroethane \\(DDT\\)", ocp, ignore.case = TRUE) ~ "DDT",
    grepl("p,p-Dichlorodiphenyltrichloroethane \\(p,p-DDT\\)", ocp, ignore.case = TRUE) ~ "DDT",
    grepl("o,p-Dichlorodiphenyltrichloroethane \\(o,p-DDT\\)", ocp, ignore.case = TRUE) ~ "DDT",
    grepl("Dichlorodiphenyldichloroethane \\(DDD\\)", ocp, ignore.case = TRUE) ~ "DDD",
    grepl("p,p-Dichlorodiphenyldichloroethane \\(p,p-DDD\\)", ocp, ignore.case = TRUE) ~ "DDD",
    grepl("o,p-Dichlorodiphenyldichloroethane \\(o,p-DDD\\)", ocp, ignore.case = TRUE) ~ "DDD",
    grepl("Dichlorodiphenyldichloroethylene \\(DDE\\)", ocp, ignore.case = TRUE) ~ "DDE",
    grepl("p,p-Dichlorodiphenyldichloroethylene \\(p,p-DDE\\)", ocp, ignore.case = TRUE) ~ "DDE",
    grepl("o,p-Dichlorodiphenyldichloroethylene \\(o,p-DDE\\)", ocp, ignore.case = TRUE) ~ "DDE",
    TRUE ~ ocp
  ))
}
 
# Transform the data 
alluvial <- im %>%
  left_join(ocp, by = "study_id") %>%
  left_join(sub, by = "study_id") %>%
  separate_rows(subject, sep = ",\\s+") %>% 
  separate_rows(ocp, sep = ",\\s+") %>% 
  separate_rows(impact_broad, sep = ",\\s+") %>%
  replace_ocp2() %>%
  filter(!grepl("not reported", ocp, ignore.case = TRUE)) %>%
  group_by(ocp, subject, impact_broad) %>%
  summarise(freq = n(), .groups = 'drop') %>%
  group_by(ocp) %>%
  filter(sum(freq) > 10) %>%  
  group_by(impact_broad) %>% 
  filter(sum(freq) > 5) %>% 
  mutate(subject = factor(subject, levels = c("Environment", "Non-human animal", "Human"), ordered = TRUE))

# Make alluvial plot
figs29 <- alluvial %>% 
  ggplot(
       aes(axis1 = ocp, axis2 = subject, axis3 = impact_broad, y = freq)) +
  scale_x_discrete(limits = c("Organochlorine Pesticide", "Subject", "Impact"), expand = c(.05, .10)) +
  xlab("Variables") +
  ylab("Frequency") +  
  geom_alluvium(aes(fill = subject)) +
  geom_stratum(width = 1/2, fill = "white", color = "black") +
  geom_text(stat = "stratum", aes(label = after_stat(stratum)), size = 5, fontface = "bold") +  
  theme_minimal() +
  theme(axis.text=element_text(size=15),  
        axis.title=element_text(size=20),
        legend.position="none",
        panel.grid.major = element_blank(),  
        panel.grid.minor = element_blank()) + 
  scale_fill_brewer(palette = "Dark2", name = "Subject Category")

figs29

# ggsave(here("figures", "figs29.pdf"), width =18, height = 12, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs29.jpg"), width = 18, height = 12, units = "cm", scale = 2, dpi = 800)

# Join the organochlorine pesticide details with the impact details
ocp_im <- left_join(ocp, im ,sub, by = "study_id") 

# Separate rows in "ocp_im"
ocp_im1 <- separate_rows(ocp_im, ocp , sep = ", ", convert = TRUE)


# Group by "ocp" and "impact" and summarize count
ocp_im_summary <- ocp_im1 %>%
  mutate(ocp = str_trim(ocp),
         impact_broad = str_trim(impact_broad)) %>%
    replace_ocp2() %>% 
  group_by(ocp, impact_broad) %>%
  summarise(count = n(), .groups = "drop") %>% 
  mutate(ocp = ifelse(grepl("no chemical classification", ocp, ignore.case = TRUE), "no chemical\n classification", ocp))

# Filter for top 8 pesticides 
top_pesticides <- ocp_im_summary %>%
  filter(ocp != "not reported") %>%
  group_by(ocp) %>%
  summarise(total_count = sum(count)) %>%
  top_n(8, total_count) %>%
  pull(ocp) 


ocp_im_summary_filtered <- ocp_im_summary %>%
  filter(ocp %in% top_pesticides)

fig4 <- ocp_im_summary_filtered %>% 
  ggplot(aes(x = fct_rev(fct_reorder(impact_broad, count, .fun = 'sum')),
             y = fct_reorder(ocp, count, .fun = 'sum'),
             size = count,
             fill = impact_broad)) +
  geom_point(shape = 21, color = "white") +
  geom_text(aes(label = count), size = 20, fontface = "bold") +
  labs(title = NULL, x = NULL, y =NULL) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(size = 35),  
    axis.text.y = element_text(size = 40, hjust = 1),  
    legend.position = "none") +
  scale_size_continuous(range = c(30, 80))

fig4

 ggsave(here("figures", "fig4.pdf"), width = 40, height = 25, units = "cm", scale = 2, dpi = 800)
 ggsave(here("figures", "fig4.jpg"), width = 40, height = 25, units = "cm", scale = 2, dpi = 800)

bibliometric_analysis <- biblioAnalysis(bib_sco)
par(cex=1.5)
plot(bibliometric_analysisbibliometric_analysis)

## Error in plot(bibliometric_analysisbibliometric_analysis): object 'bibliometric_analysisbibliometric_analysis' not found

summary(bibliometric_analysis)

## 
## 
## MAIN INFORMATION ABOUT DATA
## 
##  Timespan                              1993 : 2022 
##  Sources (Journals, Books, etc)        45 
##  Documents                             100 
##  Annual Growth Rate %                  9.25 
##  Document Average Age                  8.78 
##  Average citations per doc             58.6 
##  Average citations per year per doc    5.676 
##  References                            7548 
##  
## DOCUMENT TYPES                     
##  article               50 
##  conference paper      2 
##  review                48 
##  
## DOCUMENT CONTENTS
##  Keywords Plus (ID)                    1592 
##  Author's Keywords (DE)                258 
##  
## AUTHORS
##  Authors                               544 
##  Author Appearances                    684 
##  Authors of single-authored docs       1 
##  
## AUTHORS COLLABORATION
##  Single-authored docs                  1 
##  Documents per Author                  0.184 
##  Co-Authors per Doc                    6.84 
##  International co-authorships %        41 
##  
## 
## Annual Scientific Production
## 
##  Year    Articles
##     1993        1
##     1995        1
##     1999        1
##     2000        1
##     2004        2
##     2006        3
##     2007        1
##     2008        2
##     2009        1
##     2010        4
##     2011        3
##     2012        5
##     2013        5
##     2014        9
##     2015        7
##     2016       11
##     2017        4
##     2018        2
##     2019        7
##     2020        8
##     2021        9
##     2022       13
## 
## Annual Percentage Growth Rate 9.25 
## 
## 
## Most Productive Authors
## 
##       Authors        Articles    Authors        Articles Fractionalized
## 1  LISON D                  7 LISON D                             2.000
## 2  VAN MAELE-FABRY G        7 VAN MAELE-FABRY G                   2.000
## 3  BONDE JP                 5 DAVIS WJ                            1.000
## 4  BALLESTER F              4 GAMET-PAYRASTRE L                   0.867
## 5  CHEVRIER C               4 KREWSKI D                           0.867
## 6  EGGESBØ M                4 HOET P                              0.833
## 7  GOVARTS E                4 FU X                                0.750
## 8  SCHOETERS G              4 MUÑOZ CC                            0.750
## 9  TRNOVEC T                4 VERMEIREN P                         0.750
## 10 ZHANG Y                  4 LEVY LS                             0.700
## 
## 
## Top manuscripts per citations
## 
##                                       Paper                                      DOI  TC TCperYear  NTC
## 1  BROWN TP, 2006, ENVIRON HEALTH PERSPECT           10.1289/ehp.8095                329     17.32 1.85
## 2  GOVARTS E, 2012, ENVIRON HEALTH PERSPECT          10.1289/ehp.1103767             228     17.54 1.81
## 3  PEZZOLI G, 2013, NEUROLOGY                        10.1212/WNL.0b013e318294b3c8    207     17.25 2.08
## 4  BONDE JP, 2016, HUM REPROD UPDATE                 10.1093/HUMUPD/DMW036           188     20.89 2.24
## 5  RIGÉT F, 2010, SCI TOTAL ENVIRON                  10.1016/j.scitotenv.2009.07.036 162     10.80 1.50
## 6  VAN DER MARK M, 2012, ENVIRON HEALTH PERSPECT     10.1289/ehp.1103881             161     12.38 1.28
## 7  OJAJÄRVI IA, 2000, OCCUP ENVIRON MED              10.1136/oem.57.5.316            153      6.12 1.00
## 8  SCHINASI L, 2014, INT J ENVIRON RES PUBLIC HEALTH 10.3390/ijerph110404449         148     13.45 2.90
## 9  SONG Y, 2016, J DIABETES                          10.1111/1753-0407.12325         140     15.56 1.67
## 10 ADAMI HO, 1995, CANCER CAUSES CONTROL             10.1007/BF00054165              140      4.67 1.00
## 
## 
## Corresponding Author's Countries
## 
##           Country Articles   Freq SCP MCP MCP_Ratio
## 1  CHINA                17 0.1753  12   5     0.294
## 2  USA                  11 0.1134   9   2     0.182
## 3  BELGIUM               7 0.0722   5   2     0.286
## 4  CANADA                6 0.0619   3   3     0.500
## 5  FRANCE                6 0.0619   2   4     0.667
## 6  BRAZIL                5 0.0515   5   0     0.000
## 7  DENMARK               5 0.0515   0   5     1.000
## 8  SPAIN                 5 0.0515   0   5     1.000
## 9  NETHERLANDS           4 0.0412   3   1     0.250
## 10 UNITED KINGDOM        4 0.0412   3   1     0.250
## 
## 
## SCP: Single Country Publications
## 
## MCP: Multiple Country Publications
## 
## 
## Total Citations per Country
## 
##      Country      Total Citations Average Article Citations
## 1  DENMARK                    687                     137.4
## 2  USA                        686                      62.4
## 3  CHINA                      607                      35.7
## 4  UNITED KINGDOM             567                     141.8
## 5  BELGIUM                    488                      69.7
## 6  CANADA                     417                      69.5
## 7  FRANCE                     389                      64.8
## 8  NETHERLANDS                259                      64.8
## 9  ITALY                      207                     207.0
## 10 SPAIN                      181                      36.2
## 
## 
## Most Relevant Sources
## 
##                                  Sources        Articles
## 1  ENVIRONMENTAL HEALTH PERSPECTIVES                  10
## 2  SCIENCE OF THE TOTAL ENVIRONMENT                    9
## 3  ENVIRONMENT INTERNATIONAL                           7
## 4  CANCER CAUSES AND CONTROL                           5
## 5  ENVIRONMENTAL RESEARCH                              5
## 6  ENVIRONMENTAL SCIENCE AND POLLUTION RESEARCH        5
## 7  ENVIRONMENTAL SCIENCE AND TECHNOLOGY                4
## 8  SCIENTIFIC REPORTS                                  4
## 9  CHEMOSPHERE                                         3
## 10 ENVIRONMENTAL POLLUTION                             3
## 
## 
## Most Relevant Keywords
## 
##    Author Keywords (DE)      Articles Keywords-Plus (ID)     Articles
## 1      META-ANALYSIS               43 ENVIRONMENTAL EXPOSURE       92
## 2      PESTICIDES                  28 HUMAN                        84
## 3      SYSTEMATIC REVIEW           18 PESTICIDE                    79
## 4      OCCUPATIONAL EXPOSURE        8 HUMANS                       71
## 5      DDT                          7 FEMALE                       70
## 6      CHILD                        6 META ANALYSIS                64
## 7      DDE                          5 PESTICIDES                   60
## 8      BREAST CANCER                4 OCCUPATIONAL EXPOSURE        57
## 9      INSECTICIDES                 4 MALE                         56
## 10     ORGANOCHLORINES              4 PRIORITY JOURNAL             53

str(bibliometric_analysis)

## List of 26
##  $ Articles            : int 100
##  $ Authors             : 'table' int [1:544(1d)] 7 7 5 4 4 4 4 4 4 4 ...
##   ..- attr(*, "dimnames")=List of 1
##   .. ..$ AU: chr [1:544] "LISON D" "VAN MAELE-FABRY G" "BONDE JP" "BALLESTER F" ...
##  $ AuthorsFrac         :'data.frame':    544 obs. of  2 variables:
##   ..$ Author   : chr [1:544] "LISON D" "VAN MAELE-FABRY G" "DAVIS WJ" "GAMET-PAYRASTRE L" ...
##   ..$ Frequency: num [1:544] 2 2 1 0.867 0.867 ...
##  $ FirstAuthors        : chr [1:100] "LAMAT H" "YIPEI Y" "MOTA TFM" "HE H" ...
##  $ nAUperPaper         : int [1:100] 8 7 4 6 5 6 2 5 5 2 ...
##  $ Appearances         : int 684
##  $ nAuthors            : int 544
##  $ AuMultiAuthoredArt  : int 543
##  $ AuSingleAuthoredArt : int 1
##  $ MostCitedPapers     :'data.frame':    100 obs. of  5 variables:
##   ..$ Paper         : chr [1:100] "BROWN TP, 2006, ENVIRON HEALTH PERSPECT" "GOVARTS E, 2012, ENVIRON HEALTH PERSPECT" "PEZZOLI G, 2013, NEUROLOGY" "BONDE JP, 2016, HUM REPROD UPDATE" ...
##   ..$ DOI           : chr [1:100] "10.1289/ehp.8095" "10.1289/ehp.1103767" "10.1212/WNL.0b013e318294b3c8" "10.1093/HUMUPD/DMW036" ...
##   ..$ TC            : num [1:100] 329 228 207 188 162 161 153 148 140 140 ...
##   ..$ TCperYear     : num [1:100] 17.3 17.5 17.2 20.9 10.8 ...
##   ..$ NTC           : num [1:100] 1.85 1.81 2.08 2.24 1.5 ...
##  $ Years               : num [1:100] 2022 2022 2022 2022 2022 ...
##  $ FirstAffiliation    : chr [1:100] "UNIVERSITÉ CLERMONT AUVERGNE" "PEKING UNIVERSITY HEALTH SCIENCE CENTER" "UNIVERSIDADE ESTADUAL DO PARANÁ (UNESPAR)" "ANHUI MEDICAL UNIVERSITY" ...
##  $ Affiliations        : 'table' int [1:289(1d)] 7 7 6 6 6 5 5 5 5 5 ...
##   ..- attr(*, "dimnames")=List of 1
##   .. ..$ AFF: chr [1:289] "UNIVERSITÉ CATHOLIQUE DE LOUVAIN" "UNIVERSITY OF COPENHAGEN" "HUAZHONG UNIVERSITY OF SCIENCE AND TECHNOLOGY" "IMPERIAL COLLEGE LONDON" ...
##  $ Aff_frac            :'data.frame':    289 obs. of  2 variables:
##   ..$ Affiliation: chr [1:289] "UNIVERSITÉ CATHOLIQUE DE LOUVAIN" "HUAZHONG UNIVERSITY OF SCIENCE AND TECHNOLOGY" "UNIVERSIDADE FEDERAL DO PARANÁ" "UNIVERSITY OF OTTAWA" ...
##   ..$ Frequency  : num [1:289] 4.67 2.67 2 1.89 1.5 ...
##  $ CO                  : chr [1:100] "FRANCE" "CHINA" "BRAZIL" "CHINA" ...
##  $ Countries           : 'table' int [1:28(1d)] 17 11 7 6 6 5 5 5 4 4 ...
##   ..- attr(*, "dimnames")=List of 1
##   .. ..$ Tab: chr [1:28] "CHINA" "USA" "BELGIUM" "CANADA" ...
##  $ CountryCollaboration:'data.frame':    28 obs. of  3 variables:
##   ..$ Country: chr [1:28] "CHINA" "USA" "BELGIUM" "CANADA" ...
##   ..$ SCP    : num [1:28] 12 9 5 3 2 5 0 0 3 3 ...
##   ..$ MCP    : num [1:28] 5 2 2 3 4 0 5 5 1 1 ...
##  $ TotalCitation       : num [1:100] 4 1 3 4 8 2 22 11 1 1 ...
##  $ TCperYear           : num [1:100] 1.333 0.333 1 1.333 2.667 ...
##  $ Sources             : 'table' int [1:45(1d)] 10 9 7 5 5 5 4 4 3 3 ...
##   ..- attr(*, "dimnames")=List of 1
##   .. ..$ SO: chr [1:45] "ENVIRONMENTAL HEALTH PERSPECTIVES" "SCIENCE OF THE TOTAL ENVIRONMENT" "ENVIRONMENT INTERNATIONAL" "CANCER CAUSES AND CONTROL" ...
##  $ DE                  : 'table' int [1:258(1d)] 43 28 18 8 7 6 5 4 4 4 ...
##   ..- attr(*, "dimnames")=List of 1
##   .. ..$ Tab: chr [1:258] "META-ANALYSIS" "PESTICIDES" "SYSTEMATIC REVIEW" "OCCUPATIONAL EXPOSURE" ...
##  $ ID                  : 'table' int [1:1592(1d)] 92 84 79 71 70 64 60 57 56 53 ...
##   ..- attr(*, "dimnames")=List of 1
##   .. ..$ Tab: chr [1:1592] "ENVIRONMENTAL EXPOSURE" "HUMAN" "PESTICIDE" "HUMANS" ...
##  $ Documents           : 'table' int [1:3(1d)] 50 2 48
##   ..- attr(*, "dimnames")=List of 1
##   .. ..$ : chr [1:3] "ARTICLE              " "CONFERENCE PAPER     " "REVIEW               "
##  $ IntColl             : num 41
##  $ nReferences         : int 7548
##  $ DB                  : chr "SCOPUS"
##  - attr(*, "class")= chr "bibliometrix"

figs30_data <- bibliometric_analysis$CountryCollaboration
figs30_tibble <- as_tibble(figs33_data)

## Error in as_tibble(figs33_data): object 'figs33_data' not found

figs30_tibble_long <- figs30_tibble %>% 
                      pivot_longer(cols = c(SCP, MCP), names_to = "Country_Collaboration", values_to = "value")

## Error in pivot_longer(., cols = c(SCP, MCP), names_to = "Country_Collaboration", : object 'figs30_tibble' not found

# Summarizing and filtering for top ten countries
top_countries <- figs30_tibble_long %>%
  group_by(Country) %>%
  summarize(Total = sum(value)) %>%
  arrange(desc(Total)) %>%
  top_n(10, Total)

## Error in group_by(., Country): object 'figs30_tibble_long' not found

# Filtering the original dataset to keep only the top ten countries
figs30_tibble_long_filtered <- figs30_tibble_long %>%
  filter(Country %in% top_countries$Country)

## Error in filter(., Country %in% top_countries$Country): object 'figs30_tibble_long' not found

figs30 <- ggplot(figs30_tibble_long_filtered, aes(fill = Country_Collaboration, y = value, x = Country)) +
  geom_bar(position = "stack", stat = "identity") +
  coord_flip() +
  organochlorTHEME()

## Error in ggplot(figs30_tibble_long_filtered, aes(fill = Country_Collaboration, : object 'figs30_tibble_long_filtered' not found

figs30

## Error in eval(expr, envir, enclos): object 'figs30' not found

# ggsave(here("figures", "figs30.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs30.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800) 

figs31_data <- bibliometric_analysis$Authors
figs31_tibble <- as_tibble(figs34_data)

## Error in as_tibble(figs34_data): object 'figs34_data' not found

figs31_tibble_filtered <- figs34_tibble %>% 
                          slice_head(n=10) 

## Error in slice_head(., n = 10): object 'figs34_tibble' not found

figs31 <- ggplot(figs31_tibble_filtered, aes(y = n, x = reorder(AU,n))) +
          geom_bar(stat = "identity", width = 0.8 , alpha = 0.7, fill = "#1b9e77") +
          geom_text(aes(label = n, y = n/2), hjust = 0.5, color = "black", size = 10) +
          coord_flip() +
          organochlorTHEME()

## Error in ggplot(figs31_tibble_filtered, aes(y = n, x = reorder(AU, n))): object 'figs31_tibble_filtered' not found

# ggsave(here("figures", "figs31.pdf"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs31.jpg"), width = 16, height = 10, units = "cm", scale = 2, dpi = 800) 

# Extract country information from the "AU1_CO" and "AU_CO" fields of the "bib_sco" dataset
bibmap <- metaTagExtraction(bib_sco, Field = "AU1_CO", sep = ";") 
bibmap <- metaTagExtraction(bibmap, Field = "AU_CO", sep = ";") 

# Create a data frame with counts of articles from each country
firstcountrycounts <- bibmap %>% 
  group_by(AU1_CO) %>% 
  count() %>% 
  filter(!is.na(AU1_CO))  

# Load world map data and remove countries with longitude >180 to make an equal projection-like map
world_map <- map_data("world") %>% 
  filter(! long > 180)

# Format country names to match regions on the world map
firstcountrycounts$region <- str_to_title(firstcountrycounts$AU1_CO)
firstcountrycounts$region[firstcountrycounts$region == "Usa"] <- "USA" 
firstcountrycounts$region[firstcountrycounts$region == "Korea"] <- "South Korea"
firstcountrycounts$region[firstcountrycounts$region == "United Kingdom"] <- "UK"

# Join count data with map data and set missing counts to zero
emptymap <- tibble(region = unique(world_map$region), n = rep(0,length(unique(world_map$region))))
fullmap <- left_join(emptymap, firstcountrycounts, by = "region")
fullmap$n <- fullmap$n.x + fullmap$n.y
fullmap$n[is.na(fullmap$n)] <- 0

fig5 <- fullmap %>%
  ggplot(aes(fill = n, map_id = region)) +
  geom_map(map = world_map, color = "gray50") +
  expand_limits(x = world_map$long, y = world_map$lat) +
  coord_map("mercator", xlim = c(-180, 180), ylim = c(-50, 90)) +  
  theme(
    axis.text = element_blank(),  
    axis.title = element_blank(),  
    legend.position = "bottom",
    legend.box = "horizontal",  
    legend.box.just = "center",  
    legend.margin = margin(t = 10, unit = "pt"),  
    legend.text = element_text(size = 20),  
    legend.title = element_text(size = 20, face = "bold"),  
    legend.key.width = unit(30, "mm"), 
    panel.background = element_rect(fill = "white")
  ) +
  scale_fill_gradient(
    low = "#98FB98", high = "#006400",
    name = "First Author Count",  
    na.value = "gray70",
    limits = c(1, 20)
  ) +
  guides(
    fill = guide_colourbar(
      barwidth = unit(210, units = "mm"),
      barheight = unit(5, units = "mm")
    )
  )

fig5

 # ggsave(here("figures", "fig5.pdf"), width = 21, height = 12, units = "cm", scale = 2, dpi = 800)
 # ggsave(here("figures", "fig5.jpg"), width = 21, height = 12, units = "cm", scale = 2, dpi = 800)

figs38 <- fullmap %>%
ggplot(aes(fill = n, map_id = region)) +
geom_map(map = world_map, color = "gray50") +
coord_map("mercator", ylim = c(35, 65), xlim = c(-35, 45)) + 
theme(
    axis.text = element_blank(),  
    axis.title = element_blank(),  
    legend.box = "horizontal",  
    legend.box.just = "center",  
    legend.margin = margin(t = 10, unit = "pt"),  
    legend.text = element_text(size = 16),  
    legend.title = element_text(size = 18, face = "bold"),  
    legend.key.width = unit(30, "mm"),
    legend.position = "bottom",
    panel.background = element_rect(fill = "white")
) +
scale_fill_gradient(low = "#98FB98", high = "#006400",
    name = "First Author Count", na.value = "gray70",
    limits = c(1, 10), breaks = seq(0, 10, length.out = 6)) 

figs38

# ggsave(here("figures", "figs38.pdf"), width = 16, height = 12, units = "cm", scale = 2, dpi = 800)
# ggsave(here("figures", "figs38.jpg"), width = 16, height = 12, units = "cm", scale = 2, dpi = 800)

jpeg(filename = here("figures", "figs39.jpg"), width = 800, height = 800)

# Extract countries from the affiliations
bib_sco2 <- metaTagExtraction(bib_sco, Field = "AU_CO", sep = ";")

# Create a network matrix of collaborations between countries
NetMatrix_country <- biblioNetwork(bib_sco2, analysis = "collaboration", network = "countries", sep = ";")

# Convert the network matrix to a standard matrix
NetMatrix_country <- as.matrix(NetMatrix_country)

# Remove the lower triangle (as this is duplication of info)
NetMatrix_country[lower.tri(NetMatrix_country)] <- 0 

# Change column and row names to title case
colnames(NetMatrix_country) <- str_to_title(colnames(NetMatrix_country))
rownames(NetMatrix_country) <- str_to_title(rownames(NetMatrix_country))

# Change "Usa" to "USA"
colnames(NetMatrix_country)[colnames(NetMatrix_country) == "Usa"] <- "USA"
rownames(NetMatrix_country)[rownames(NetMatrix_country) == "Usa"] <- "USA"

# Change "United Kingdom" to "UK" for easier plotting
colnames(NetMatrix_country)[colnames(NetMatrix_country) == "United Kingdom"] <- "UK"
rownames(NetMatrix_country)[rownames(NetMatrix_country) == "United Kingdom"] <- "UK"

# Setting up custom parameters
circos.par(cell.padding = c(0, 0, 0, 0), track.margin = c(0, 0))

# Create a chord diagram of the network matrix
 chordDiagram(NetMatrix_country, annotationTrack = "grid", preAllocateTracks = 1)

# Add a track to label each sector with its name
circos.trackPlotRegion(track.index = 1, bg.border = NA, panel.fun = function(x, y) {
  xlim = get.cell.meta.data("xlim")
  ylim = get.cell.meta.data("ylim")
  sector.name = get.cell.meta.data("sector.index")
  circos.text(mean(xlim), ylim[1] + 0.2 , sector.name, facing = "clockwise", niceFacing = TRUE, adj = c(0, 0))
  circos.axis(h = "top", labels.cex = 0.5, major.tick.length = 0.2, sector.index = sector.name, track.index = 2)
})

dev.off()

## png 
##   2

jpeg(filename = here("figures", "figs40.jpg"), width = 800, height = 800)

diag(NetMatrix_country) <- 0

# Create a chord diagram of the network matrix
figs43 <- chordDiagram(NetMatrix_country, annotationTrack = "grid", preAllocateTracks = 1)

# Add a track to label each sector with its name
circos.trackPlotRegion(track.index = 1, panel.fun = function(x, y) {
  xlim = get.cell.meta.data("xlim")
  ylim = get.cell.meta.data("ylim")
  sector.name = get.cell.meta.data("sector.index")
  circos.text(mean(xlim), ylim[1] + 0.2, sector.name, facing = "clockwise", niceFacing = TRUE, adj = c(0, 0.5))
  circos.axis(h = "top", labels.cex = 0.5, major.tick.length = 0.2, sector.index = sector.name, track.index = 2)
}, bg.border = NA)

dev.off()

## png 
##   2

# Country rename to continents
NetMatrix_continent <- NetMatrix_country
colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "USA"] <- "North America"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "USA"] <- "North America"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Spain"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Spain"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "China"] <- "Asia"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "China"] <- "Asia"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "France"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "France"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Canada"] <- "North America"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Canada"] <- "North America"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Denmark"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Denmark"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Netherlands"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Netherlands"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Belgium"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Belgium"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "UK"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "UK"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Australia"] <- "Other"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Australia"] <- "Other"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Brazil"] <- "Other"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Brazil"] <- "Other"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Germany"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Germany"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Finland"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Finland"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Greece"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Greece"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Korea"] <- "Asia"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Korea"] <- "Asia"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Norway"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Norway"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Sweden"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Sweden"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Egypt"] <- "Other"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Egypt"] <- "Other"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Italy"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Italy"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Japan"] <- "Asia"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Japan"] <- "Asia"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Portugal"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Portugal"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Switzerland"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Switzerland"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Turkey"] <- "Asia"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Turkey"] <- "Asia"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "India"] <- "Asia"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "India"] <- "Asia"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Iran"] <- "Asia"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Iran"] <- "Asia"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Costa Rica"] <- "North America"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Costa Rica"] <- "North America"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Czech Republic"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Czech Republic"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Hong Kong"] <- "Asia"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Hong Kong"] <- "Asia"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Iceland"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Iceland"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Ireland"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Ireland"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Mexico"] <- "North America"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Mexico"] <- "North America"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Romania"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Romania"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Slovakia"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Slovakia"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Ukraine"] <- "Europe"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Ukraine"] <- "Europe"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Australia"] <- "Other"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Australia"] <- "Other"

colnames(NetMatrix_continent)[colnames(NetMatrix_continent) == "Kazakhstan"] <- "Asia"
rownames(NetMatrix_continent)[rownames(NetMatrix_continent) == "Kazakhstan"] <- "Asia"


# collapsing
merge_matrix <- t(rowsum(t(NetMatrix_continent), group = colnames(NetMatrix_continent), na.rm = T))
merge_matrix2 <- rowsum(merge_matrix, group = rownames(merge_matrix))


# remove diagonal elements
diag(merge_matrix2) <- 0

# chord plot
chordDiagramFromMatrix(merge_matrix2)


# Define colors
my_colors <- c("#1B9E77", "#D95F02", "#7570B3", "#E6AB02")

my_colors <- rep(my_colors, length.out = ncol(merge_matrix2))


jpeg("figures//figs42.jpeg", width = 16, height = 16, units = "cm", res = 300)

## Error in jpeg("figures//figs42.jpeg", width = 16, height = 16, units = "cm", : unable to start jpeg() device

# Create a chord diagram of the network matrix
fig6 <- chordDiagram(small_matrix, 
                       annotationTrack = "grid", 
                       annotationTrackHeight = mm_h(7), 
                       preAllocateTracks = 1,
                       grid.col = my_colors2)

## Error in chordDiagram(small_matrix, annotationTrack = "grid", annotationTrackHeight = mm_h(7), : object 'small_matrix' not found

# Add a track to label each sector with its name
circos.trackPlotRegion(track.index = 1, panel.fun = function(x, y) {
  xlim = get.cell.meta.data("xlim")
  ylim = get.cell.meta.data("ylim")
  sector.name = get.cell.meta.data("sector.index")
  circos.text(mean(xlim), ylim[1], sector.name, facing = "bending.inside", niceFacing = TRUE, adj = c(0.5, 1.75), col = "white", cex = 1.2)
}, bg.border = NA)

dev.off()

## null device 
##           1

fields <- sd %>%
  mutate(
    title = str_to_lower(paper_title),
    ntitle = paste(str_to_lower(str_split_fixed(study_id, "\\_", n = 2)[,1]), paper_title, sep = " "),
    ntitle = str_squish(ntitle),
    Journal_Category_Allocated_Broad = str_replace_all(Journal_Category_Allocated_Broad, "Toxicology", "Other"),
    Journal_Category_Allocated_Broad = str_replace_all(Journal_Category_Allocated_Broad, "Multidisciplinary", "Multi\ndisciplinary"),
    Journal_Category_Allocated_Broad = str_replace_all(Journal_Category_Allocated_Broad, "Marine Biology", "Other"),
    Journal_Category_Allocated_Broad = str_replace_all(Journal_Category_Allocated_Broad, "Environmental Science", "Environemental\nScience"),    Journal_Category_Allocated_Broad = str_replace_all(Journal_Category_Allocated_Broad, "Psychology", "Other")
  ) %>% 
  select(ntitle, Journal_Category_Allocated_Broad)

bib_names <- bib_sco %>% rownames_to_column(., var = "mat_names") %>% 
  mutate(TI2 = tolower(unlist(lapply(data.frame(t(str_split_fixed(TI, " ", n = 15)[,1:14])), 
                                     function(x) str_c(x, collapse  = " ")))),
         name2 = stri_trans_general(tolower(str_split_fixed(SR, " ", n = 2)[,1]), "latin-ascii"),
         TI2 = paste(name2, TI2, sep= " "),
         TI2 = trimws(TI2)) %>% 
  select(TI2, mat_names)

pos <- lapply(bib_names$TI2, function(x) stringdist(fields$ntitle, x))
pos2<- map_dbl(pos, which.min)

# now we can merge two datasets 
bib_names$Journal_Category_Allocated_Broad <- fields$Journal_Category_Allocated_Broad[pos2]

# Creating matrix for bibliometric coupling
NetMatrix <- biblioNetwork(bib_sco, analysis = "coupling", network = "references", sep = ";")

# forcing into a nromal matrix
net_matrix <- as.matrix(NetMatrix)

diag(net_matrix) <- 0 #get rid of counts for the same papers

# replacing names with Journal_Category_Allocated_Broad
rownames(net_matrix) <- bib_names$Journal_Category_Allocated_Broad
colnames(net_matrix) <- bib_names$Journal_Category_Allocated_Broad

# reducing matrix according to discipline_code
rect_matrix<- t(rowsum(t(net_matrix), group = colnames(net_matrix), na.rm = T))
small_matrix <- rowsum(rect_matrix, group = rownames(rect_matrix))

# getting rid of lower triangle (as this is duplication of info)
small_matrix[lower.tri(small_matrix)] <- 0 
par(mar = c(0, 0, 0, 0), mfrow = c(1, 1))

# diag(small_matrix) <- 0

# Define colors
my_colors2 <- c("#1B9E77", "#D95F02", "#7570B3",  "#E6AB02")

my_colors2 <- rep(my_colors2, length.out = ncol(small_matrix))

jpeg("figures//figs42.jpeg", width = 20, height = 20, units = "cm", res = 300)

## Error in jpeg("figures//figs42.jpeg", width = 20, height = 20, units = "cm", : unable to start jpeg() device

# Create a chord diagram with specified colors
figs47 <- chordDiagram(small_matrix, 
                       annotationTrack = "grid", 
                       annotationTrackHeight = mm_h(7), 
                       preAllocateTracks = 1,
                       grid.col = my_colors2)

# Add a track to label each sector with its name
circos.trackPlotRegion(track.index = 1, panel.fun = function(x, y) {
  xlim = get.cell.meta.data("xlim")
  ylim = get.cell.meta.data("ylim")
  sector.name = get.cell.meta.data("sector.index")
  circos.text(mean(xlim), ylim[1] , sector.name, facing = "clockwise", niceFacing = TRUE, adj = c(-0.1, 0.5), col = "black", cex = 1)
}, bg.border = NA)

dev.off()

## null device 
##           1

LS0tDQp0aXRsZTogIlNpeHR5IHllYXJzIHNpbmNlIFNpbGVudCBTcHJpbmc6IGEgbWFwIG9mIG1ldGEtYW5hbHlzZXMgb24gb3JnYW5vY2hsb3JpbmUgcGVzdGljaWRlcyByZXZlYWxzIHVyZ2VudCBuZWVkcyBmb3IgaW1wcm92aW5nIG1ldGhvZG9sb2dpY2FsIHF1YWxpdHkiDQphdXRob3I6ICJLeWxlIE1vcnJpc29uLCBDb3JhbGllIFdpbGxpYW1zLCBMb3JlbnpvIFJpY29sZmksIFllZmVuZyBZYW5nLCBNYWxnb3J6YXRhIExhZ2lzeiwgU2hpbmljaGkgTmFrYWdhd2EiIA0KZGF0ZTogIjIwMjMtMDMtMDkiDQpvdXRwdXQ6IA0KICBybWRmb3JtYXRzOjpkb3duY3V0ZToNCiAgICBjb2RlX2ZvbGRpbmc6IHNob3cNCiAgICBjb2RlX2Rvd25sb2FkOiB0cnVlDQogICAgdG9jX2RlcHRoOiA0DQplZGl0b3Jfb3B0aW9uczogDQogIGNodW5rX291dHB1dF90eXBlOiBjb25zb2xlDQogIA0KLS0tDQpgYGB7ciwgaW5jbHVkZSA9IEZBTFNFfQ0Kcm0obGlzdCA9IGxzKCkpDQojIGtuaXRyIHNldHRpbmcNCmtuaXRyOjpvcHRzX2NodW5rJHNldCgNCiAgbWVzc2FnZSA9IEZBTFNFLA0KICB3YXJuaW5nID0gRkFMU0UsIA0KICBjYWNoZSA9IFRSVUUsDQogIGVycm9yID0gVFJVRSwgDQogIGVjaG89VFJVRQ0KKQ0KYGBgDQoNCg0KSW4gdGhpcyBSbWFya2Rvd24gZG9jdW1lbnQgd2UgcHJvdmlkZSB0aGUgZm9sbG93aW5nIHdvcmtmbG93OiAgIA0KDQotIFNlY3Rpb24gMDogVG8gZXhhbWluZSB0aGUgdm9sdW1lIGFuZCB0ZW1wb3JhbCB0cmVuZHMgb2YgZXhpc3RpbmcgbWV0YS1hbmFseXNlcyBvbiB0aGUgZWZmZWN0cyBvZiBvcmdhbm9jaGxvcmluZSBwZXN0aWNpZGVzDQoNCi0gU2VjdGlvbiAxOiBUbyBldmFsdWF0ZSB0aGUgbWV0aG9kb2xvZ2ljYWwgcGF0dGVybnMgYW5kIHF1YWxpdHkgb2YgZXhpc3RpbmcgbWV0YS1hbmFseXNlcyBzdHVkeWluZyB0aGUgZWZmZWN0cyBvZiBvcmdhbm9jaGxvcmluZSBwZXN0aWNpZGVzLg0KDQotIFNlY3Rpb24gMjogVG8gZXhwbG9yZSB0aGUgdmFyaW91cyBjaGFyYWN0ZXJpc3RpY3Mgb2YgdGhlIG9yZ2Fub2NobG9yaW5lIHBlc3RpY2lkZXMgbGl0ZXJhdHVyZSBzdWNoIGFzIHRoZSBwZXN0aWNpZGVzIHVzZWQsIHRoZSBpbXBhY3RzIGVsaWNpdGVkIGluIHJlc3BvbnNlIGFuZCB0aGUgc3ViamVjdHMgdGhhdCB3ZXJlIGludmVzdGlnYXRlZC4NCg0KLSBTZWN0aW9uIDM6IFRvIGludmVzdGlnYXRlIHRoZSByZXNlYXJjaCBvdXRwdXRzIGFjcm9zcyBkaWZmZXJlbnQgY291bnRyaWVzLCBjb250aW5lbnRzIGFuZCBkaXNjaXBsaW5lcywgYW5kIGludmVzdGlnYXRlIHRoZSBkZWdyZWUgb2YgY3Jvc3MtY291bnRyeSBjb2xsYWJvcmF0aW9uLg0KIA0KDQojIExvYWQgcGFja2FnZXMgYW5kIGRhdGENCiMjIExvYWQgcGFja2FnZXMgDQpgYGB7ciwgcmVzdWx0cz0iaGlkZSJ9DQpybShsaXN0ID0gbHMoKSkNCnBhY21hbjo6cF9sb2FkKHRpZHl2ZXJzZSwNCmhyYnJ0aGVtZXMsIA0KcGF0Y2h3b3JrLA0KaGVyZSwNCnN0cmluZ3IsDQprbml0ciwNCmZvcm1hdFIsDQpmb3JjYXRzLA0KZ2dwbG90MiwNCmJpYmxpb21ldHJpeCwNCmlncmFwaCwNCnN0cmluZ2ksDQpzdHJpbmdkaXN0LA0KY2lyY2xpemUsDQpnZ2FsbHV2aWFsLA0KZ2dyYXBoKQ0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFLCBtZXNzYWdlID0gRkFMU0UsIHdhcm5pbmcgPSBGQUxTRSkNCg0KYGBgDQoNCg0KIyMgTG9hZCBkYXRhDQpNYW51YWxseSBleHRyYWN0ZWQgcGlsb3QgZGF0YSBpcyBzdG9yZWQgaW4gZml2ZSBzZXBhcmF0ZSAqKi5jc3YqKiBmaWxlcyByZXByZXNlbnRpbmcgZGlmZmVyZW50IGFzcGVjdHMgb2YgdGhlIGRhdGEgKGV4dHJhY3RlZCB2aWEgc3RydWN0dXJlZCBwcmVkZWZpbmVkIEdvb2dsZSBGb3JtcyAtIG9uZSBwZXIgdGFibGUpLiANCkJpYmxpb2dyYXBoaWMgZGF0YSByZWNvcmRzIGFyZSBleHBvcnRlZCBmcm9tIFNjb3B1cyAoaW5jbHVkaW5nIGNpdGVkIHJlZmVyZW5jZXMgZmllbGQpIGluIC5iaWIgZm9ybWF0IGFuZCBsb2NhbGx5IHNhdmVkIGFzICoqYmliX3Njby5iaWIqKi4gDQpgYGB7ciwgIHJlc3VsdHM9ImhpZGUifQ0KIyBMb2FkIENTViBkYXRhc2V0cw0Kc2QgPC0gcmVhZF9jc3YoaGVyZSgiZGF0YSIsICJvY3Bfc3JtX3N0dWR5X2RldGFpbHMuY3N2IikpDQpvY3AgPC0gcmVhZF9jc3YoaGVyZSgiZGF0YSIsICJvY3Bfc3JtX29jcF9kZXRhaWxzLmNzdiIpKQ0Kc3ViIDwtIHJlYWRfY3N2KGhlcmUoImRhdGEiLCAib2NwX3NybV9zdWJqZWN0X2RldGFpbHMuY3N2IikpDQppbSA8LSByZWFkX2NzdihoZXJlKCJkYXRhIiwgIm9jcF9zcm1faW1wYWN0X2RldGFpbHMuY3N2IikpDQpzcCA8LSByZWFkX2NzdihoZXJlKCJkYXRhIiwgIm9jcF9zcm1fc3BlY2llc19kZXRhaWxzLmNzdiIpKQ0KDQojIExvYWQgQmliVGVYIGRhdGFzZXQNCmJpYl9zY28gPC0gY29udmVydDJkZihoZXJlKCJkYXRhIiwgImJpYl9zY28uYmliIiksIGRic291cmNlID0gInNjb3B1cyIsIGZvcm1hdCA9ICJiaWJ0ZXgiKQ0KYGBgDQoNCiMgU2VjdGlvbiAwIA0KVG8gZXhhbWluZSB0aGUgdm9sdW1lIGFuZCB0ZW1wb3JhbCB0cmVuZHMgb2YgZXhpc3RpbmcgbWV0YS1hbmFseXNlcyBvbiB0aGUgZWZmZWN0cyBvZiBvcmdhbm9jaGxvcmluZSBwZXN0aWNpZGVzDQoNCiMjIEZpZ3VyZSAxIA0KQSkgQmFyIGNoYXJ0IHNob3dpbmcgdGhlIGFubnVhbCBudW1iZXIgb2YgbWV0YS1hbmFseXNlcyBzeW50aGVzaXNpbmcgcmVzZWFyY2ggb24gdGhlIGltcGFjdHMgb2Ygb3JnYW5vY2hsb3JpbmUgcGVzdGljaWRlcywgY2F0ZWdvcmlzZWQgYnkgZGlmZmVyZW50IHN1YmplY3RzIG9mIGV4cG9zdXJlLiANCkIpIEFyZWEgZ3JhcGggc2hvd2luZyB0aGUgY3VtdWxhdGl2ZSB0aW1lIHRyZW5kcyBvZiBtZXRhLWFuYWx5c2VzIHN5bnRoZXNpc2luZyByZXNlYXJjaCBvbiB0aGUgaW1wYWN0cyBvZiBvcmdhbm9jaGxvcmluZSBwZXN0aWNpZGVzLCBjYXRlZ29yaXNlZCBieSBkaWZmZXJlbnQgc3ViamVjdHMgb2YgZXhwb3N1cmUuDQoNCmBgYHtyLCBmaWcud2lkdGg9MTYsIGZpZy5oZWlnaHQ9MTJ9DQojIEpvaW4gdGhlIHN0dWR5IGFuZCBzdWJqZWN0IGRhdGFzZXRzDQpzZF9zdWIgPC0gbGVmdF9qb2luKHNkLCBzdWIsIGJ5ID0gInN0dWR5X2lkIikNCg0KIyBDb3VudCB0aGUgbnVtYmVyIG9mIHB1YmxpY2F0aW9ucyBwZXIgeWVhciBhbmQgY2FsY3VsYXRlIGN1bXVsYXRpdmUgc3VtDQpzZDEgPC0gc2QgJT4lDQogIGNvdW50KHB1YmxpY2F0aW9uX3llYXIpICU+JQ0KICBtdXRhdGUobl9jdW11bGF0aXZlID0gY3Vtc3VtKG4pKQ0KDQoNCiMgQ3JlYXRlIGEgdGhlbWUgZm9yIHRoZSBjb3VudCBwbG90cyANCnRoZW1lX2NvdW50IDwtIGZ1bmN0aW9uKCkgew0KICB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZSgNCiAgICBwYW5lbC5ncmlkLm1ham9yLnkgPSBlbGVtZW50X2xpbmUoY29sb3IgPSAiZ3JheSIsIGxpbmV0eXBlID0gImRhc2hlZCIpLA0KICAgIHBhbmVsLmdyaWQubWlub3IueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLmxpbmUueCA9IGVsZW1lbnRfbGluZShzaXplID0gMS4yKSwNCiAgICBheGlzLmxpbmUueSA9IGVsZW1lbnRfbGluZShzaXplID0gMS4yKSwNCiAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDIwLCBmYWNlID0gImJvbGQiKSwNCiAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDIwLCBmYWNlID0gImJvbGQiKSwNCiAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDQ1LCBoanVzdCA9IDEsIHNpemUgPSAxNSwgY29sb3IgPSAiIzY2NjY2NiIpLA0KICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAyMCwgY29sb3IgPSAiIzY2NjY2NiIpLA0KICAgIGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIg0KICApDQp9DQoNCg0KIyBDcmVhdGUgdGhlIGFubnVhbCBjb3VudCBwbG90DQpmaWcxYSA8LSBzZF9zdWIgJT4lDQogIG11dGF0ZShzdWJqZWN0cyA9IHN0cnNwbGl0KHN1YmplY3QsICIsXFxzKyIpKSAlPiUNCiAgdW5uZXN0KHN1YmplY3RzKSAlPiUNCiAgY291bnQocHVibGljYXRpb25feWVhciwgc3ViamVjdHMpICU+JQ0KICBncm91cF9ieShzdWJqZWN0cyA9IHJlb3JkZXIoc3ViamVjdHMsIG4pKSAlPiUNCiAgZ2dwbG90KGFlcyh4ID0gcHVibGljYXRpb25feWVhciwgeSA9IG4sIGZpbGwgPSBzdWJqZWN0cykpICsNCiAgICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IiwgcG9zaXRpb24gPSAic3RhY2siLCBhbHBoYSA9IDAuNykgKw0KICAgIGdlb21fdGV4dChhZXMobGFiZWwgPSBuKSwgcG9zaXRpb24gPSBwb3NpdGlvbl9zdGFjayh2anVzdCA9IDAuNiksIA0KICAgICAgICAgICAgICBmb250ZmFjZSA9ICJib2xkIiwgY29sb3IgPSAid2hpdGUiLCBzaXplID0gNiwgaGp1c3QgPSAwLjQpICsNCiAgICBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzID0gc2VxKG1pbihzZDEkcHVibGljYXRpb25feWVhciksIG1heChzZDEkcHVibGljYXRpb25feWVhciksIGJ5ID0gMSksIA0KICAgICAgICAgICAgICAgICAgICAgICBleHBhbmQgPSBleHBhbnNpb24oMCwwKSkgKyAgDQogICAgc2NhbGVfeV9jb250aW51b3VzKCJBbm51YWwgQXJ0aWNsZSBDb3VudCIsIGxpbWl0cyA9IGMoMCwxNSkpICsNCiAgICBsYWJzKHkgPSAiQXJ0aWNsZSBDb3VudCIsIHRhZyA9ICJBIiwgZmlsbCA9ICJTdWJqZWN0cyIpICsNCiAgICB0aGVtZV9jb3VudCgpICsNCiAgICB0aGVtZShheGlzLnRpdGxlLnggPSBlbGVtZW50X2JsYW5rKCkpICsNCiAgICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIkRhcmsyIikgKw0KICAgIGd1aWRlcyhmaWxsID0gZ3VpZGVfbGVnZW5kKG92ZXJyaWRlLmFlcyA9IGxpc3Qoc2l6ZT0xMCkpKQ0KDQoNCiMgQ3JlYXRlIHRoZSBjdW11bGF0aXZlIGNvdW50IHBsb3QNCmZpZzFiIDwtIHNkX3N1YiAlPiUNCiAgbXV0YXRlKHN1YmplY3RzID0gc3Ryc3BsaXQoc3ViamVjdCwgIixcXHMrIikpICU+JQ0KICB1bm5lc3Qoc3ViamVjdHMpICU+JQ0KICBjb3VudChwdWJsaWNhdGlvbl95ZWFyLCBzdWJqZWN0cykgJT4lDQogIGdyb3VwX2J5KHN1YmplY3RzID0gcmVvcmRlcihzdWJqZWN0cywgbikpICU+JQ0KICBtdXRhdGUobl9jdW11bGF0aXZlID0gY3Vtc3VtKG4pKSAlPiUNCiAgZ2dwbG90KGFlcyh4ID0gcHVibGljYXRpb25feWVhciwgeSA9IG5fY3VtdWxhdGl2ZSwgZmlsbCA9IHN1YmplY3RzKSkgKw0KICAgIGdlb21fYXJlYShzaXplID0gMS4yLCBhbHBoYSA9IDAuNykgKw0KICAgIHNjYWxlX3lfY29udGludW91cygiQ3VtdWxhdGl2ZSBBcnRpY2xlIENvdW50IiwgbGltaXRzID0gYygwLDExNSkpICsNCiAgICBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzID0gc2VxKG1pbihzZF9zdWIkcHVibGljYXRpb25feWVhciksIG1heChzZF9zdWIkcHVibGljYXRpb25feWVhciksIGJ5ID0gMSksIA0KICAgICAgICAgICAgICAgICAgICAgICBleHBhbmQgPSBleHBhbnNpb24oMCwwKSkgKyAgDQogICAgbGFicyh4ID0gIlllYXIiLCB5ID0gIkN1bXVsYXRpdmUgQXJ0aWNsZSBDb3VudCIsIHRhZyA9ICJCIiwgZmlsbCA9ICJTdWJqZWN0cyIpICsNCiAgICB0aGVtZV9jb3VudCgpICsNCiAgICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIkRhcmsyIikgKw0KICAgIGd1aWRlcyhmaWxsID0gZ3VpZGVfbGVnZW5kKG92ZXJyaWRlLmFlcyA9IGxpc3Qoc2l6ZT0xMCkpKQ0KDQojIENvbWJpbmUgdGhlIHR3byBwbG90cw0KZmlnMSA8LSBmaWcxYSAvIGZpZzFiDQpmaWcxDQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnMS5wZGYiKSwgd2lkdGggPSAxNiwgaGVpZ2h0ID0gMTIsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZzEuanBnIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEyLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KDQoNCiMgVG90YWwgbnVtYmVyIG9mIGluY2x1ZGVkIHByaW1hcnkgbGl0ZXJhdHVyZQ0KIHRvdGFsX3N1bV9wcmltYXJ5IDwtIHNkICU+JQ0KICBzdW1tYXJpc2UodG90YWxfc3VtID0gc3VtKHRvdGFsX2luY2x1ZGVkX3N0dWRpZXMsIG5hLnJtID0gVFJVRSkpICU+JQ0KICBwdWxsKHRvdGFsX3N1bSkNCg0KIHRvdGFsX3N1bV9wcmltYXJ5ICMgMzkxMQ0KYGBgDQoNCiMjIA0KQ3JlYXRlIGEgc3RhbmRhcmQgdGhlbWUgZm9yIHRoZSBzdXBwbGVtZW50YXJ5IHBsb3RzDQpgYGB7cn0NCm9yZ2Fub2NobG9yVEhFTUUgPC0gZnVuY3Rpb24oKSB7DQogIHRoZW1lX21pbmltYWwoKSArDQogIHRoZW1lKA0KICAgIHRpdGxlID0gZWxlbWVudF90ZXh0KHNpemUgPSAzMCksDQogICAgYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDMwKSwNCiAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMjApLA0KICAgIGF4aXMubGluZS54ID0gZWxlbWVudF9saW5lKGNvbG9yID0gImdyYXkiLCBzaXplID0gMyksDQogICAgYXhpcy5saW5lLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50aWNrcy54ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGlja3MueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50aXRsZS55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIHBhbmVsLmdyaWQubWFqb3IueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBwYW5lbC5ncmlkLm1pbm9yLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgbGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiKSAgICANCn0NCg0KYGBgDQoNCg0KIyMgRmlndXJlIHM0IA0KQSkgQmFyIGNoYXJ0IHNob3dpbmcgdGhlIGFubnVhbCBudW1iZXIgb2YgcHVibGlzaGVkIG1ldGEtYW5hbHlzZXMgc3ludGhlc2lzaW5nIHJlc2VhcmNoIG9uIHRoZSBpbXBhY3RzIG9mIG9yZ2Fub2NobG9yaW5lIHBlc3RpY2lkZXMuICANCkIpIExpbmUgZ3JhcGggc2hvd2luZyB0aGUgY3VtdWxhdGl2ZSB0aW1lIHRyZW5kcyBvZiBtZXRhLWFuYWx5c2VzIHN5bnRoZXNpc2luZyByZXNlYXJjaCBvbiB0aGUgaW1wYWN0cyBvZiBvcmdhbm9jaGxvcmluZSBwZXN0aWNpZGVzLg0KYGBge3IsIGZpZy53aWR0aD0xNiwgZmlnLmhlaWdodD0xMn0NCg0KIyBDcmVhdGUgdGhlIGFubnVhbCBDb3VudCBQbG90DQpmaWdzNGEgPC0gc2QxICU+JQ0KICBnZ3Bsb3QoYWVzKHggPSBwdWJsaWNhdGlvbl95ZWFyLCB5ID0gbikpICsNCiAgICBnZW9tX2NvbChmaWxsID0gIiMxYjllNzciLCBhbHBoYSA9IDAuNykgKw0KICAgIGdlb21fdGV4dChhZXMobGFiZWwgPSBuKSwgcG9zaXRpb24gPSBwb3NpdGlvbl9zdGFjayh2anVzdCA9IDAuNiksIA0KICAgICAgICAgICAgICBmb250ZmFjZSA9ICJib2xkIiwgY29sb3IgPSAid2hpdGUiLCBzaXplID0gNiwgaGp1c3QgPSAwLjQpICsNCiAgICBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzID0gc2VxKG1pbihzZDEkcHVibGljYXRpb25feWVhciksIG1heChzZDEkcHVibGljYXRpb25feWVhciksIGJ5ID0gMSksIA0KICAgICAgICAgICAgICAgICAgICAgICBleHBhbmQgPSBleHBhbnNpb24oMCwxKSkgKw0KICAgIHNjYWxlX3lfY29udGludW91cygiQW5udWFsIEFydGljbGUgQ291bnQiLCBsaW1pdHMgPSBjKDAsMTUpKSArDQogICAgbGFicyh4ID0gIlllYXIiLCB0YWcgPSAiQSIpICsNCiAgICB0aGVtZV9jb3VudCgpICsNCiAgICB0aGVtZShheGlzLnRpdGxlLnggPSBlbGVtZW50X2JsYW5rKCkpDQoNCg0KIyBDcmVhdGUgdGhlIGN1bXVsYXRpdmUgQ291bnQgUGxvdA0KZmlnczRiIDwtIHNkMSAlPiUNCiAgZ2dwbG90KGFlcyh4ID0gcHVibGljYXRpb25feWVhciwgeSA9IG5fY3VtdWxhdGl2ZSkpICsNCiAgICBnZW9tX2xpbmUoY29sb3IgPSAiIzc1NzBiMyIsIHNpemUgPSAxLCBsaW5ldHlwZSA9ICJzb2xpZCIpICsNCiAgICBnZW9tX3BvaW50KHNoYXBlID0gMjEsIHNpemUgPSA2LCBmaWxsID0gIiM3NTcwYjMiLCBzdHJva2UgPSAwKSArDQogICAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IG5fY3VtdWxhdGl2ZSksIGhqdXN0ID0gMC4yLCB2anVzdCA9IC0xLCBzaXplID0gNiwgY29sb3IgPSAiYmxhY2siKSArDQogICAgc2NhbGVfeF9jb250aW51b3VzKGJyZWFrcyA9IHNlcShtaW4oc2QxJHB1YmxpY2F0aW9uX3llYXIpLCBtYXgoc2QxJHB1YmxpY2F0aW9uX3llYXIpLCBieSA9IDEpLCANCiAgICAgICAgICAgICAgICAgICAgICAgZXhwYW5kID0gZXhwYW5zaW9uKDAsMSkpICsNCiAgICBzY2FsZV95X2NvbnRpbnVvdXMoIkN1bXVsYXRpdmUgQXJ0aWNsZSBDb3VudCIsIGxpbWl0cyA9IGMoMCwxMjApKSArDQogICAgbGFicyh4ID0gIlllYXIiLCB0YWcgPSAiQiIpICsNCiAgICB0aGVtZV9jb3VudCgpDQoNCiMgQ29tYmluZSB0aGUgdHdvIHBsb3RzDQpmaWdzNCA8LSBmaWdzNGEgLyBmaWdzNGINCmZpZ3M0DQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczQucGRmIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEyLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzNC5qcGciKSwgd2lkdGggPSAxNiwgaGVpZ2h0ID0gMTIsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQoNCmBgYA0KDQojIFNlY3Rpb24gMQ0KVG8gZXZhbHVhdGUgdGhlIG1ldGhvZG9sb2dpY2FsIHF1YWxpdHkgYW5kIHBhdHRlcm5zIG9mIGV4aXN0aW5nIG1ldGEtYW5hbHlzZXMgc3R1ZHlpbmcgdGhlIGVmZmVjdHMgb2Ygb3JnYW5vY2hsb3JpbmUgcGVzdGljaWRlcy4gDQoNCiMjIEZpZ3VyZSAyDQpUaGUgbWV0aG9kb2xvZ2ljYWwgYW5kIHJlcG9ydGluZyBxdWFsaXR5IG9mIG1ldGEtYW5hbHlzZXMgYWNjb3JkaW5nIHRvIENFRVNBVCB2LiAyLjEgKFdvb2Rjb2NrIGV0IGFsLiwgMjAxNCkuIFNjb3JlcyBhcmUgcmVwcmVzZW50ZWQgYnkgdGhlIGZvbGxvd2luZyBjb2xvdXJzOiBnb2xkIGlzIHJlZ2FyZGVkIGFzIHRoZSBoaWdoZXN0IChiZXN0KSBzY29yZSwgZ3JlZW4gaXMgc2Vjb25kIGhpZ2hlc3Qgc2NvcmUsIGFtYmVyIGlzIHNlY29uZC1sb3dlc3Qgc2NvcmUsIGFuZCByZWQgaXMgdGhlIGxvd2VzdCAod29yc3QpIHNjb3JlLiBUaGUgdG90YWwgY291bnRzIG9mIHN0dWRpZXMgYWxsb2NhdGVkIHRvIGVhY2ggc2NvcmUgYXJlIHNob3duIGluIGVhY2ggYmFyLiBBbGwgQ0VFU0FUIHYuIDIuMSBpdGVtcywgYWxvbmcgd2l0aCBvdXIgaW50ZXJwcmV0YXRpb24sIGFyZSBwcm92aWRlZCBpbiBTdXBwbGVtZW50YXJ5IEZpbGUgMi4gDQoNCg0KIyMgRmlndXJlIDJhDQpDRUVTQVQgc2NvcmVzIGZvciA4MyBhc3Nlc3NlZCBtZXRhLWFuYWx5c2VzIA0KYGBge3IsIGZpZy53aWR0aD0yNSwgZmlnLmhlaWdodD0xNX0NCiMgU3RhcnQgdGhlIGRhdGEgbWFuaXB1bGF0aW9uDQpwZXJjZW50X2NlZXNhdF9zY29yZSA8LSBzZCAlPiUNCiAgZmlsdGVyKCFpcy5uYShhdXRob3JfeWVhcikpICU+JQ0KICBzZWxlY3Qoc3R1ZGllcyA9IGF1dGhvcl95ZWFyLCBzdGFydHNfd2l0aCgiQ0VFIikpICU+JQ0KICBuYS5vbWl0KCkgJT4lDQogIHBpdm90X2xvbmdlcihjb2xzID0gLXN0dWRpZXMsIG5hbWVzX3RvID0gInF1ZXN0aW9uIiwgdmFsdWVzX3RvID0gInNjb3JlIikgJT4lDQogIGdyb3VwX2J5KHF1ZXN0aW9uLCBzY29yZSkgJT4lDQogIHN1bW1hcmlzZShuID0gbigpLCAuZ3JvdXBzID0gJ2Ryb3AnKSAlPiUNCiAgbXV0YXRlKHBlcmNlbnQgPSAobi9zdW0obikpKjEwMCwgDQogICAgICAgICBhY3Jvc3MoYyhxdWVzdGlvbiwgc2NvcmUpLCBhcy5mYWN0b3IpLA0KICAgICAgICAgcXVlc3Rpb24gPSBmY3RfcmVjb2RlKHF1ZXN0aW9uLCANCiAgICAgICAgICAgYDEuMSBBcmUgdGhlIGVsZW1lbnRzIG9mIHRoZSByZXZpZXcgcXVlc3Rpb24gY2xlYXI/YCA9ICJDRUVTQVQyXzEuMSIsDQogICAgICAgICAgIGAyLjEgSXMgdGhlcmUgYW4gYS1wcmlvcmkgbWV0aG9kIHByb3RvY29sIGRvY3VtZW50P2AgPSAiQ0VFU0FUMl8yLjEiLA0KICAgICAgICAgICBgMy4xLiBJcyB0aGUgYXBwcm9hY2ggdG8gc2VhcmNoaW5nIGNsZWFybHkgZGVmaW5lZCBzeXN0ZW1hdGljIGFuZFxudHJhbnNwYXJlbnQ/YCA9ICJDRUVTQVQyXzMuMSIsDQogICAgICAgICAgIGAzLjIuIElzIHRoZSBzZWFyY2ggY29tcHJlaGVuc2l2ZT9gID0gIkNFRVNBVDJfMy4yIiwNCiAgICAgICAgICAgYDQuMS4gQXJlIGVsaWdpYmlsaXR5IGNyaXRlcmlhIGNsZWFybHkgZGVmaW5lZD9gID0gIkNFRVNBVDJfNC4xIiwNCiAgICAgICAgICAgYDQuMi4gQXJlIGVsaWdpYmlsaXR5IGNyaXRlcmlhIGNvbnNpc3RlbnRseSBhcHBsaWVkIHRvIGFsbCBwb3RlbnRpYWxseSByZWxldmFudFxuYXJ0aWNsZXMgYW5kIHN0dWRpZXMgZm91bmQgZHVyaW5nIHRoZSBzZWFyY2g/YCA9ICJDRUVTQVQyXzQuMiIsDQogICAgICAgICAgIGA0LjMuIEFyZSBlbGlnaWJpbGl0eSBkZWNpc2lvbnMgdHJhbnNwYXJlbnRseSByZXBvcnRlZD9gID0gIkNFRVNBVDJfNC4zIiwNCiAgICAgICAgICAgYDUuMS4gRG9lcyB0aGUgcmV2aWV3IGNyaXRpY2FsbHkgYXBwcmFpc2UgZWFjaCBzdHVkeT9gID0gIkNFRVNBVDJfNS4xIiwNCiAgICAgICAgICAgYDUuMi4gRHVyaW5nIGNyaXRpY2FsIGFwcHJhaXNhbCB3YXMgYW4gZWZmb3J0IG1hZGUgdG8gbWluaW1pc2VcbnN1YmplY3Rpdml0eT9gID0gIkNFRVNBVDJfNS4yIiwNCiAgICAgICAgICAgYDYuMS4gSXMgdGhlIG1ldGhvZCBvZiBkYXRhIGV4dHJhY3Rpb24gZnVsbHkgZG9jdW1lbnRlZD9gID0gIkNFRVNBVDJfNi4xIiwNCiAgICAgICAgICAgYDYuMi4gQXJlIHRoZSBleHRyYWN0ZWQgZGF0YSByZXBvcnRlZCBmb3IgZWFjaCBzdHVkeT9gID0gIkNFRVNBVDJfNi4yIiwNCiAgICAgICAgICAgYDYuMy4gV2VyZSBleHRyYWN0ZWQgZGF0YSBjcm9zcyBjaGVja2VkIGJ5IG1vcmUgdGhhbiBvbmUgcmV2aWV3ZXI/YCA9ICJDRUVTQVQyXzYuMyIsDQogICAgICAgICAgIGA3LjEuIElzIHRoZSBjaG9pY2Ugb2Ygc3ludGhlc2lzIGFwcHJvYWNoIGFwcHJvcHJpYXRlP2AgPSAiQ0VFU0FUMl83LjEiLA0KICAgICAgICAgICBgNy4yLiBJcyBhIHN0YXRpc3RpY2FsIGVzdGltYXRlIG9mIHBvb2xlZCBlZmZlY3QgcHJvdmlkZWQgdG9nZXRoZXIgd2l0aFxubWVhc3VyZSBvZiB2YXJpYW5jZSBhbmQgaGV0ZXJvZ2VuZWl0eSBhbW9uZyBzdHVkaWVzP2AgPSAiQ0VFU0FUMl83LjIiLA0KICAgICAgICAgICBgNy4zIElzIHZhcmlhYmlsaXR5IGluIHRoZSBzdHVkeSBmaW5kaW5ncyBpbnZlc3RpZ2F0ZWQgYW5kIGRpc2N1c3NlZD9gID0gIkNFRVNBVDJfNy4zIiwNCiAgICAgICAgICAgYDguMSBIYXZlIHRoZSBhdXRob3JzIGNvbnNpZGVyZWQgbGltaXRhdGlvbnMgaW4gdGhlIHN5bnRoZXNpcz9gID0gIkNFRVNBVDJfOC4xIiksDQogICAgICAgICBxdWVzdGlvbiA9IGZhY3RvcihxdWVzdGlvbiwgbGV2ZWxzID0gcmV2KGxldmVscyhxdWVzdGlvbikpKSwNCiAgICAgICAgIHNjb3JlID0gZmFjdG9yKHNjb3JlLCBsZXZlbHMgPSBsZXZlbHMoc2NvcmUpW2MoNCwxLDMsMildKSkNCg0KIyBDcmVhdGUgQ0VFU0FUIHBsb3QgDQpmaWcyYSA8LSBnZ3Bsb3QoZGF0YSA9IHBlcmNlbnRfY2Vlc2F0X3Njb3JlLCBhZXMoeCA9IHF1ZXN0aW9uLCB5ID0gcGVyY2VudCwgZmlsbCA9IHNjb3JlKSkgKw0KICBnZW9tX2NvbCh3aWR0aCA9IDAuNywgcG9zaXRpb24gPSAiZmlsbCIsIGNvbG9yID0gImJsYWNrIikgKw0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiksIHBvc2l0aW9uID0gcG9zaXRpb25fZmlsbCh2anVzdCA9IDAuNSksIHNpemUgPSA3LCBmb250ZmFjZSA9ICJib2xkIikgKw0KICBjb29yZF9mbGlwKCkgKw0KICBndWlkZXMoZmlsbCA9IGd1aWRlX2xlZ2VuZChyZXZlcnNlID0gVFJVRSkpICsNCiAgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzID0gYygiI0ZGMDAwMCIsIiNGRkQ3MDAiLCIjMDA4MDAwIiwgIiNEQUE1MjAiKSwgbmFtZSA9ICJTY29yZToiKSArDQogIHNjYWxlX3lfY29udGludW91cyhsYWJlbHMgPSBzY2FsZXM6OnBlcmNlbnQpICsNCiAgdGhlbWUocGFuZWwuZ3JpZC5tYWpvciA9IGVsZW1lbnRfYmxhbmsoKSwgDQogICAgICAgIHBhbmVsLmdyaWQubWlub3IgPSBlbGVtZW50X2JsYW5rKCksIA0KICAgICAgICBwYW5lbC5iYWNrZ3JvdW5kID0gZWxlbWVudF9ibGFuaygpLA0KICAgICAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMjApLA0KICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMjApLA0KICAgICAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDI1KSwNCiAgICAgICAgYXhpcy50aXRsZS55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAyNSksIA0KICAgICAgICBsZWdlbmQucG9zaXRpb24gPSAidG9wIiwgIA0KICAgICAgICBsZWdlbmQuanVzdGlmaWNhdGlvbiA9ICJsZWZ0IiwgIA0KICAgICAgICBsZWdlbmQuZGlyZWN0aW9uID0gImhvcml6b250YWwiLA0KICAgICAgICBsZWdlbmQuYm94ID0gImhvcml6b250YWwiLCAgDQogICAgICAgIGxlZ2VuZC5ib3guanVzdCA9ICJsZWZ0IiwgIA0KICAgICAgICBsZWdlbmQudGl0bGUuYWxpZ24gPSAwLjUsICANCiAgICAgICAgbGVnZW5kLmtleS5zaXplID0gdW5pdCgxLCAiY20iKSwgIA0KICAgICAgICBsZWdlbmQudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9MjUpLA0KICAgICAgICBsZWdlbmQudGV4dCA9IGVsZW1lbnRfdGV4dChzaXplID0gMjUpLCAgDQogICAgICAgIHN0cmlwLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDIwKSwNCiAgICAgICAgc3RyaXAuYmFja2dyb3VuZCA9IGVsZW1lbnRfYmxhbmsoKSwgDQogICAgICAgIHBsb3QudGFnID0gZWxlbWVudF90ZXh0KHNpemUgPSAyNSkpICsgDQogIHlsYWIoIlBlcmNlbnRhZ2UiKSArIA0KICB4bGFiKCJDRUVTQVQgUXVlc3Rpb24iKSArICANCiAgbGFicyh0YWcgPSAiQSIpDQoNCmZpZzJhDQoNCnRvdGFsX24gPC0gc3VtKHBlcmNlbnRfY2Vlc2F0X3Njb3JlJG4pDQpwZXJjZW50YWdlcyA8LSB0aWJibGUoDQogIHJlZF9wZXJjZW50YWdlID0gc3VtKHBlcmNlbnRfY2Vlc2F0X3Njb3JlJG5bcGVyY2VudF9jZWVzYXRfc2NvcmUkc2NvcmUgPT0gIlJlZCJdKSAvIHRvdGFsX24gKiAxMDAsDQogIGFtYmVyX3BlcmNlbnRhZ2UgPSBzdW0ocGVyY2VudF9jZWVzYXRfc2NvcmUkbltwZXJjZW50X2NlZXNhdF9zY29yZSRzY29yZSA9PSAiQW1iZXIiXSkgLyB0b3RhbF9uICogMTAwLA0KICBncmVlbl9wZXJjZW50YWdlID0gc3VtKHBlcmNlbnRfY2Vlc2F0X3Njb3JlJG5bcGVyY2VudF9jZWVzYXRfc2NvcmUkc2NvcmUgPT0gIkdyZWVuIl0pIC8gdG90YWxfbiAqIDEwMCwNCiAgZ29sZF9wZXJjZW50YWdlID0gc3VtKHBlcmNlbnRfY2Vlc2F0X3Njb3JlJG5bcGVyY2VudF9jZWVzYXRfc2NvcmUkc2NvcmUgPT0gIkdvbGQiXSkgLyB0b3RhbF9uICogMTAwDQopDQoNCiBwZXJjZW50YWdlcw0KDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZzJhLnBkZiIpLCB3aWR0aCA9IDI1LCBoZWlnaHQgPSAxNSwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnMmEuanBnIiksIHdpZHRoID0gMjUsIGhlaWdodCA9IDE1LCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KYGBgDQoNCiMjIA0KTWFraW5nIHRoZSBDRUVTQVQgcXVlc3Rpb24gZ3JvdXBzIGZvciByZXN1bHQgcmVwb3J0aW5nDQpgYGB7cn0NCiMgQ3JlYXRlIG5ldyBjYXRlZ29yaWVzIGZvciBzcGVjaWZpZWQgcXVlc3Rpb25zIGluIG51bWVyaWNhbCBvcmRlcg0KcGVyY2VudF9jZWVzYXRfc2NvcmUkY29tYmluZWRfY2F0ZWdvcnkgPC0gaWZlbHNlKA0KICBncmVwbCgiXjFcXC4xIiwgcGVyY2VudF9jZWVzYXRfc2NvcmUkcXVlc3Rpb24pIHwgZ3JlcGwoIl4yXFwuMSIsIHBlcmNlbnRfY2Vlc2F0X3Njb3JlJHF1ZXN0aW9uKSwNCiAgIlN0dWR5IFF1ZXN0aW9uIiwNCiAgaWZlbHNlKGdyZXBsKCJeM1xcLjEiLCBwZXJjZW50X2NlZXNhdF9zY29yZSRxdWVzdGlvbikgfCBncmVwbCgiXjNcXC4yIiwgcGVyY2VudF9jZWVzYXRfc2NvcmUkcXVlc3Rpb24pLA0KICAgICJMaXRlcmF0dXJlIFNlYXJjaGluZyIsDQogICAgaWZlbHNlKGdyZXBsKCJeNFxcLjEiLCBwZXJjZW50X2NlZXNhdF9zY29yZSRxdWVzdGlvbikgfCBncmVwbCgiXjRcXC4yIiwgcGVyY2VudF9jZWVzYXRfc2NvcmUkcXVlc3Rpb24pIHwgZ3JlcGwoIl40XFwuMyIsIHBlcmNlbnRfY2Vlc2F0X3Njb3JlJHF1ZXN0aW9uKSwNCiAgICAgICJMaXRlcmF0dXJlIFNjcmVlbmluZyIsDQogICAgICBpZmVsc2UoZ3JlcGwoIl41XFwuMSIsIHBlcmNlbnRfY2Vlc2F0X3Njb3JlJHF1ZXN0aW9uKSB8IGdyZXBsKCJeNVxcLjIiLCBwZXJjZW50X2NlZXNhdF9zY29yZSRxdWVzdGlvbikgfCANCiAgICAgICAgICAgICBncmVwbCgiXjZcXC4xIiwgcGVyY2VudF9jZWVzYXRfc2NvcmUkcXVlc3Rpb24pIHwgZ3JlcGwoIl42XFwuMiIsIHBlcmNlbnRfY2Vlc2F0X3Njb3JlJHF1ZXN0aW9uKSB8IGdyZXBsKCJeNlxcLjMiLCBwZXJjZW50X2NlZXNhdF9zY29yZSRxdWVzdGlvbiksDQogICAgICAgICJEYXRhIEV4dHJhY3Rpb24iLCANCiAgICAgICAgaWZlbHNlKGdyZXBsKCJeNyIsIHBlcmNlbnRfY2Vlc2F0X3Njb3JlJHF1ZXN0aW9uKSwgIkRhdGEgQW5hbHlzaXMiLCANCiAgICAgICAgICBpZmVsc2UoZ3JlcGwoIl44IiwgcGVyY2VudF9jZWVzYXRfc2NvcmUkcXVlc3Rpb24pLCAiU3R1ZHkgTGltaXRhdGlvbnMiLCAiT3RoZXIiKSkpKSkpDQoNCiMgR3JvdXAgYnkgY29tYmluZWRfY2F0ZWdvcnkgYW5kIHNjb3JlLCB0aGVuIHN1bW1hcml6ZQ0KcGVyY2VudF9jZWVzYXRfc2NvcmVfZ3JvdXBlZCA8LSBwZXJjZW50X2NlZXNhdF9zY29yZSAlPiUNCiAgZ3JvdXBfYnkoY29tYmluZWRfY2F0ZWdvcnksIHNjb3JlKSAlPiUNCiAgc3VtbWFyaXNlKHRvdGFsX24gPSBzdW0obikpDQoNCiMgQ2FsY3VsYXRlIHRoZSB0b3RhbCBjb3VudCBmb3IgZWFjaCBzcGVjaWFsIGNhdGVnb3J5DQp0b3RhbF9jb3VudHMgPC0gcGVyY2VudF9jZWVzYXRfc2NvcmVfZ3JvdXBlZCAlPiUNCiAgZ3JvdXBfYnkoY29tYmluZWRfY2F0ZWdvcnkpICU+JQ0KICBzdW1tYXJpc2UodG90YWxfY291bnQgPSBzdW0odG90YWxfbikpDQoNCiMgSm9pbiB0b3RhbCBjb3VudHMgd2l0aCBncm91cGVkIGRhdGENCnBlcmNlbnRfY2Vlc2F0X3Njb3JlX2dyb3VwZWQgPC0gbGVmdF9qb2luKHBlcmNlbnRfY2Vlc2F0X3Njb3JlX2dyb3VwZWQsIHRvdGFsX2NvdW50cywgYnkgPSAiY29tYmluZWRfY2F0ZWdvcnkiKQ0KDQojIEFkZCBhIGNvbHVtbiBmb3IgcmVsYXRpdmUgcGVyY2VudA0KcGVyY2VudF9jZWVzYXRfc2NvcmVfZ3JvdXBlZCA8LSBwZXJjZW50X2NlZXNhdF9zY29yZV9ncm91cGVkICU+JQ0KICBtdXRhdGUocmVsYXRpdmVfcGVyY2VudCA9ICh0b3RhbF9uIC8gdG90YWxfY291bnQpICogMTAwKQ0KDQpwcmludChwZXJjZW50X2NlZXNhdF9zY29yZV9ncm91cGVkKQ0KIyB2aWV3KHBlcmNlbnRfY2Vlc2F0X3Njb3JlX2dyb3VwZWQpDQpgYGANCg0KIyMgDQpDYWxjdWxhdGluZyBhbHRtZXRyaWMgZm9yIGVhY2ggc3R1ZHkgDQpgYGB7cn0NCiMgbG9hZCBkYXRhDQpiaWJfYWx0IDwtIHJlYWRfY3N2KGhlcmUoImRhdGEiLCJzY29wdXMuY3N2IikpIA0KDQojIGZ1bmN0aW9uIGdldEFsdG1ldHJpY3MoKSwgdGhlIG9ubHkgcGFyYW1ldGVyIGlzIGRvaTsgc2VlIGV4YW1wbGUgYmVsb3cNCmdldEFsdG1ldHJpY3MgPC0gZnVuY3Rpb24oZG9pID0gTlVMTCwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgZm9wdGlvbnMgPSBsaXN0KCksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAuLi4pIHsNCiAgICBpZiAoIWlzLm51bGwoZG9pKSkgZG9pIDwtIHN0cmluZ3I6OnN0cl9jKCJkb2kvIiwgZG9pKQ0KICAgIGlkZW50aWZpZXJzIDwtIHB1cnJyOjpjb21wYWN0KGxpc3QoZG9pKSkNCiAgICBpZiAoIWlzLm51bGwoaWRlbnRpZmllcnMpKSB7DQogICAgICBpZHMgPC0gaWRlbnRpZmllcnNbWzFdXQ0KICAgIH0NCiAgICBiYXNlX3VybCA8LSAiaHR0cDovL2FwaS5hbHRtZXRyaWMuY29tL3YxLyINCiAgICAjcmVxdWVzdCA8LSBodHRyOjpHRVQocGFzdGUwKGJhc2VfdXJsLCBpZHMpLCBodHRyOjphZGRfaGVhZGVycygidXNlci1hZ2VudCIgPSAiI3JzdGF0cyByQWx0bWVydGljIHBhY2thZ2UgaHR0cHM6Ly9naXRodWIuY29tL3JvcGVuc2NpL3JBbHRtZXRyaWMiKSkNCiAgICByZXF1ZXN0IDwtIGh0dHI6OkdFVChwYXN0ZTAoYmFzZV91cmwsIGlkcykpDQogICAgcmVzdWx0cyA8LQ0KICAgICAganNvbmxpdGU6OmZyb21KU09OKGh0dHI6OmNvbnRlbnQocmVxdWVzdCwgYXMgPSAidGV4dCIpLCBmbGF0dGVuID0gVFJVRSkNCiAgICByZXN1bHRzIDwtIHJsaXN0OjpsaXN0LmZsYXR0ZW4ocmVzdWx0cykNCiAgICBjbGFzcyhyZXN1bHRzKSA8LSAiYWx0bWV0cmljIg0KICAgIHJlc3VsdHMNCn0NCmFsdG1ldHJpYy5jcmF3bGVyIDwtIGxpc3QoTlVMTCkNCmZvciAobiBpbiAxOmxlbmd0aChiaWJfYWx0JERPSSkpIHsNCiAjIGZvcm1hdCBhbHRtZXRyaWMgb2JqZWN0DQogIGZvcm1hdC5BbHRtZXRyaWMgPC0gZnVuY3Rpb24oYWx0bWV0cmljLm9iamVjdCkgew0KICBzdGF0cyA8LSBhbHRtZXRyaWMub2JqZWN0W2dyZXAoIl5jaXRlZCIsIG5hbWVzKGFsdG1ldHJpYy5vYmplY3QpKV0NCiAgc3RhdHMgPC0gZGF0YS5mcmFtZShzdGF0cywgc3RyaW5nc0FzRmFjdG9ycyA9IEZBTFNFKQ0KICBkYXRhLmZyYW1lKHBhcGVyX3RpdGxlID0gYWx0bWV0cmljLm9iamVjdCR0aXRsZSwNCiAgICAgICAgICAgICBqb3VybmFsID0gYWx0bWV0cmljLm9iamVjdCRqb3VybmFsLA0KICAgICAgICAgICAgIGRvaSA9IGFsdG1ldHJpYy5vYmplY3QkZG9pLA0KICAgICAgICAgICAgICNzdWJqZWN0ID0gYWx0bWV0cmljLm9iamVjdCRzdWJqZWN0cywNCiAgICAgICAgICAgICBBbHRtZXRyaWMuc2NvcmUgPSBhbHRtZXRyaWMub2JqZWN0JHNjb3JlLA0KICAgICAgICAgICAgIHN0YXRzID0gc3RhdHMpDQp9DQogICAjIEpBU09OIGZvcm1hdGUNCiAgYWx0bWV0cmljLmNyYXdsZXJbW25dXSAgPC0gIHRyeShsaXN0KGZvcm1hdC5BbHRtZXRyaWMoZ2V0QWx0bWV0cmljcyhkb2kgPSBiaWJfYWx0JERPSVtuXSkpKSkgIyBodHRwczovL3N0YWNrb3ZlcmZsb3cuY29tL3F1ZXN0aW9ucy8xNDA1OTY1Ny9ob3ctdG8tc2tpcC1hbi1lcnJvci1pbi1hLWxvb3A/cnE9MQ0KICANCiAgIyBjcmVhdGUgYSBkYXRhZnJhbWUgZnVuY3Rpb24NCiAgYWx0bWV0cmljX2RmIDwtIGZ1bmN0aW9uKGFsdG1ldHJpYy5vYmplY3QpIHsNCiAgZGYgPC0gZGF0YS5mcmFtZSh0KHVubGlzdChhbHRtZXRyaWMub2JqZWN0KSksIHN0cmluZ3NBc0ZhY3RvcnMgPSBGQUxTRSkNCiAgfQ0KICAjYWx0bWV0cmljLmNyYXdsZXJbW25dXSAgPC0gIHRyeShsaXN0KGFsdG1ldHJpY19kZihnZXRBbHRtZXRyaWNzKGRvaSA9IERPSXNbbl0pKSkpDQogICMgY3JlYXRlIGEgZnVuY3Rpb24gdG8gc3VtbWFyaXplIEFsdG1ldHJpYyBvYmplY3QNCiAgc3VtbWFyeS5hbHRtZXRyaWMgPC0gZnVuY3Rpb24oeCwgLi4uKSB7DQogIGlmIChpbmhlcml0cyh4LCAiYWx0bWV0cmljIikpICB7DQpzdHJpbmcgPC0gIkFsdG1ldHJpY3Mgb246IFwiJXNcIiB3aXRoIGFsdG1ldHJpY19pZDogJXMgcHVibGlzaGVkIGluICVzLiINCnZhbHMgICA8LSBjKHgkdGl0bGUsICB4JGFsdG1ldHJpY19pZCwgeCRqb3VybmFsKQ0KIGlmKCJqb3VybmFsIiAlaW4lIG5hbWVzKHgpKSB7DQogIGNhdChkby5jYWxsKHNwcmludGYsIGFzLmxpc3QoYyhzdHJpbmcsIHZhbHMpKSkpDQogfSBlbHNlIHsNCiAgIHN0cmluZyA8LSAiQWx0bWV0cmljcyBvbjogXCIlc1wiIHdpdGggYWx0bWV0cmljX2lkOiAlcyINCiAgIGNhdChkby5jYWxsKHNwcmludGYsIGFzLmxpc3QoYyhzdHJpbmcsIHZhbHMpKSkpDQogfQ0KICBjYXQoIlxuIikNCiAgc3RhdHMgPC0geFtncmVwKCJeY2l0ZWQiLCBuYW1lcyh4KSldDQogIHN0YXRzIDwtIGRhdGEuZnJhbWUoc3RhdHMsIHN0cmluZ3NBc0ZhY3RvcnMgPSBGQUxTRSkNCiAgcHJpbnQoZGF0YS5mcmFtZShzdGF0cyA9IHQoc3RhdHMpKSkNCiAgfQ0KfQ0KICAjIGNyYXdsDQogIyBhbHRtZXRyaWMuY3Jhd2xlcltbbl1dIDwtIHRyeShsaXN0KHN1bW1hcnkuYWx0bWV0cmljKGdldEFsdG1ldHJpY3MoZG9pID0gRE9Jc1tuXSkpKSkNCn0NCiMgc2F2ZSByZXN1bHRzIGZyb20gYWx0bWV0cmljLmNyYXdsZXIgYW5kIHJldHJpZXZlIGxpc3RzIHdpdGhpbiBsaXN0cw0KYWx0bWV0cmljLmNyYXdsZXIyIDwtIHNhcHBseShhbHRtZXRyaWMuY3Jhd2xlciwgZnVuY3Rpb24oeCkge3h9KQ0KIyByZXRyaWV2ZSBzdGF0cw0KYWx0bWV0cmljLnN1bW1hcnkgPC0gZGF0YS5mcmFtZShwYXBlcl90aXRsZSA9IHNhcHBseShhbHRtZXRyaWMuY3Jhd2xlcjIsIGZ1bmN0aW9uKHgpICBpZmVsc2UoY2xhc3MoeCkgPT0gImRhdGEuZnJhbWUiLHgkcGFwZXJfdGl0bGUsTkEpKSwNCiAgICAgICAgICAgam91cm5hbCA9IHNhcHBseShhbHRtZXRyaWMuY3Jhd2xlcjIsIGZ1bmN0aW9uKHgpIGlmZWxzZShjbGFzcyh4KSA9PSAiZGF0YS5mcmFtZSIseCRqb3VybmFsLE5BKSksDQogICAgICAgICAgIGRvaSA9IHNhcHBseShhbHRtZXRyaWMuY3Jhd2xlcjIsIGZ1bmN0aW9uKHgpIGlmZWxzZShjbGFzcyh4KSA9PSAiZGF0YS5mcmFtZSIseCRkb2ksTkEpKSwNCiAgICAgICAgICAgI3N1YmplY3QgPSBzYXBwbHkoYWx0bWV0cmljLmNyYXdsZXIyLCBmdW5jdGlvbih4KSBpZmVsc2UoY2xhc3MoeCkgPT0gImRhdGEuZnJhbWUiLHgkc3ViamVjdCxOQSkpLA0KICAgICAgICAgICBBbHRtZXRyaWMuc2NvcmUgPSBzYXBwbHkoYWx0bWV0cmljLmNyYXdsZXIyLCBmdW5jdGlvbih4KSBpZmVsc2UoY2xhc3MoeCkgPT0gImRhdGEuZnJhbWUiLHgkQWx0bWV0cmljLnNjb3JlLDApKSwNCiAgICAgICAgICAgcG9saWN5ID0gc2FwcGx5KGFsdG1ldHJpYy5jcmF3bGVyMiwgZnVuY3Rpb24oeCkgaWZlbHNlKGNsYXNzKHgpID09ICJkYXRhLmZyYW1lIixpZmVsc2UoIWlzLm51bGwoeCRzdGF0cy5jaXRlZF9ieV9wb2xpY2llc19jb3VudCkseCRzdGF0cy5jaXRlZF9ieV9wb2xpY2llc19jb3VudCwwKSwwKSksDQogICAgICAgICAgIHBhdGVudCA9IHNhcHBseShhbHRtZXRyaWMuY3Jhd2xlcjIsIGZ1bmN0aW9uKHgpIGlmZWxzZShjbGFzcyh4KSA9PSAiZGF0YS5mcmFtZSIsaWZlbHNlKCFpcy5udWxsKHgkc3RhdHMuY2l0ZWRfYnlfcGF0ZW50c19jb3VudCkseCRzdGF0cy5jaXRlZF9ieV9wYXRlbnRzX2NvdW50LDApLDApKQ0KICAgICAgICAgICApDQojIEFkZGluZyBuZXcgY29sdW1ucyB0byBiaWJfYWx0IGRhdGFmcmFtZQ0KYmliX2FsdCA8LSBiaWJfYWx0ICU+JQ0KICAgbXV0YXRlKEFsdG1ldHJpYy5zY29yZSA9IGFsdG1ldHJpYy5zdW1tYXJ5JEFsdG1ldHJpYy5zY29yZSwgDQogICAgICAgICAgcG9saWN5ID0gYWx0bWV0cmljLnN1bW1hcnkkcG9saWN5LCANCiAgICAgICAgICBwYXRlbnQgPSBhbHRtZXRyaWMuc3VtbWFyeSRwYXRlbnQpDQoNCiMgRGVmaW5pbmcgdGhlIHNjb3JpbmcgZnVuY3Rpb24NCnNjb3JlIDwtIGZ1bmN0aW9uKHgpIHsNCiAgY2FzZV93aGVuKA0KICAgIHggPT0gJ1JlZCcgfiAwLA0KICAgIHggPT0gJ0FtYmVyJyB+IDEsDQogICAgeCA9PSAnR3JlZW4nIH4gMywNCiAgICB4ID09ICdHb2xkJyB+IDQsDQogICAgVFJVRSB+IE5BX3JlYWxfDQogICkNCn0NCiMgQXBwbHkgdGhlIHNjb3JpbmcgZnVuY3Rpb24gYWNyb3NzIGFsbCBjb2x1bW5zIHN0YXJ0aW5nIHdpdGggIkNFRVNBVCINCnNkIDwtIHNkICU+JQ0KICBtdXRhdGUoYWNyb3NzKHN0YXJ0c193aXRoKCJDRUVTQVQiKSwgc2NvcmUsIC5uYW1lcyA9ICJwb2ludHNfey5jb2x9IikpDQojIFN1bSBhbGwgdGhlIHBvaW50cyBjb2x1bW5zIHRvIGNyZWF0ZSBhICd0b3RhbF9wb2ludHMnIGNvbHVtbg0Kc2QgPC0gc2QgJT4lDQogIG11dGF0ZSh0b3RhbF9wb2ludHMgPSByb3dTdW1zKHNlbGVjdCguLCBzdGFydHNfd2l0aCgicG9pbnRzXyIpKSwgbmEucm0gPSBUUlVFKSkNCg0KYGBgDQoNCiMjIEZpZ3VyZSAyYg0KQ0VFU0FUIHNjb3JlcyBmb3IgbWV0YS1hbmFseXNlcyBjaXRlZCBpbiBwb2xpY3kgZG9jdW1lbnRzIChsZWZ0IHBhbmVsKSBhbmQgdGhvc2Ugbm90IGNpdGVkIGluIHBvbGljeSBkb2N1bWVudHMgKHJpZ2h0IHBhbmVsKS4gDQpgYGB7ciwgZmlnLndpZHRoPTI1LCBmaWcuaGVpZ2h0PTE1fQ0Kc2RfYmliX2FsdCA8LSBzZCAlPiUNCiAgbGVmdF9qb2luKGJpYl9hbHQsIGJ5ID0gIkRPSSIpDQoNCiMgQ29udmVydGluZyBwb2xpY3kgdG8gYmluYXJ5IGFuZCBkcm9wcGluZyBOQXMNCnNkX2JpYl9hbHRfcG9saWN5IDwtIHNkX2JpYl9hbHQgJT4lDQogIG11dGF0ZShiaW5hcnlfcG9saWN5ID0gaWZfZWxzZShwb2xpY3kgIT0gMCwgIkNpdGVkIGluIFBvbGljeSIsICJOb3QgQ2l0ZWQgaW4gUG9saWN5IikpICU+JQ0KICBkcm9wX25hKGJpbmFyeV9wb2xpY3ksIHRvdGFsX3BvaW50cykNCg0KIyBDb252ZXJ0aW5nIHBvbGljeSB0byBiaW5hcnkgYW5kIGRyb3BwaW5nIE5Bcw0Kc2RfYmliX2FsdF9wb2xpY3kgPC0gc2RfYmliX2FsdCAlPiUNCiAgbXV0YXRlKGJpbmFyeV9wb2xpY3kgPSBpZl9lbHNlKHBvbGljeSAhPSAwLCAiQ2l0ZWQgaW4gUG9saWN5IiwgIk5vdCBDaXRlZCBpbiBQb2xpY3kiKSkgJT4lDQogIGRyb3BfbmEoYmluYXJ5X3BvbGljeSwgdG90YWxfcG9pbnRzKQ0KcGVyY2VudF9jZWVzYXRfc2NvcmUxIDwtIHNkX2JpYl9hbHRfcG9saWN5ICU+JQ0KICBmaWx0ZXIoIWlzLm5hKGF1dGhvcl95ZWFyKSkgJT4lDQogIHNlbGVjdChzdHVkaWVzID0gYXV0aG9yX3llYXIsIGJpbmFyeV9wb2xpY3ksIHN0YXJ0c193aXRoKCJDRUUiKSkgJT4lDQogIG5hLm9taXQoKSAlPiUNCiAgcGl2b3RfbG9uZ2VyKGNvbHMgPSAtYyhzdHVkaWVzLCBiaW5hcnlfcG9saWN5KSwgbmFtZXNfdG8gPSAicXVlc3Rpb24iLCB2YWx1ZXNfdG8gPSAic2NvcmUiKSAlPiUNCiAgZ3JvdXBfYnkoYmluYXJ5X3BvbGljeSwgcXVlc3Rpb24sIHNjb3JlKSAlPiUNCiAgc3VtbWFyaXNlKG4gPSBuKCksIC5ncm91cHMgPSAnZHJvcCcpICU+JQ0KICBtdXRhdGUocGVyY2VudCA9IChuL3N1bShuKSkqMTAwLCANCiAgICAgICAgIGFjcm9zcyhjKHF1ZXN0aW9uLCBzY29yZSksIGFzLmZhY3RvciksDQogICAgICAgICBxdWVzdGlvbiA9IGZjdF9yZWNvZGUocXVlc3Rpb24sIA0KICAgICAgICAgICBgMS4xYCA9ICJDRUVTQVQyXzEuMSIsDQogICAgICAgICAgIGAyLjFgID0gIkNFRVNBVDJfMi4xIiwNCiAgICAgICAgICAgYDMuMWAgPSAiQ0VFU0FUMl8zLjEiLA0KICAgICAgICAgICBgMy4yYCA9ICJDRUVTQVQyXzMuMiIsDQogICAgICAgICAgIGA0LjFgID0gIkNFRVNBVDJfNC4xIiwNCiAgICAgICAgICAgYDQuMmAgPSAiQ0VFU0FUMl80LjIiLA0KICAgICAgICAgICBgNC4zYCA9ICJDRUVTQVQyXzQuMyIsDQogICAgICAgICAgIGA1LjFgID0gIkNFRVNBVDJfNS4xIiwNCiAgICAgICAgICAgYDUuMmAgPSAiQ0VFU0FUMl81LjIiLA0KICAgICAgICAgICBgNi4xYCA9ICJDRUVTQVQyXzYuMSIsDQogICAgICAgICAgIGA2LjJgID0gIkNFRVNBVDJfNi4yIiwNCiAgICAgICAgICAgYDYuM2AgPSAiQ0VFU0FUMl82LjMiLA0KICAgICAgICAgICBgNy4xYCA9ICJDRUVTQVQyXzcuMSIsDQogICAgICAgICAgIGA3LjJgID0gIkNFRVNBVDJfNy4yIiwNCiAgICAgICAgICAgYDcuM2AgPSAiQ0VFU0FUMl83LjMiLA0KICAgICAgICAgICBgOC4xYCA9ICJDRUVTQVQyXzguMSIpLA0KICAgICAgICAgcXVlc3Rpb24gPSBmYWN0b3IocXVlc3Rpb24sIGxldmVscyA9IHJldihsZXZlbHMocXVlc3Rpb24pKSksDQogICAgICAgICBzY29yZSA9IGZhY3RvcihzY29yZSwgbGV2ZWxzID0gbGV2ZWxzKHNjb3JlKVtjKDQsMSwzLDIpXSkpDQoNCg0KZmlnMmIgPC0gZ2dwbG90KGRhdGEgPSBwZXJjZW50X2NlZXNhdF9zY29yZTEsIGFlcyh4ID0gcXVlc3Rpb24sIHkgPSBwZXJjZW50LCBmaWxsID0gc2NvcmUpKSArDQogIGdlb21fY29sKHdpZHRoID0gMC43LCBwb3NpdGlvbiA9ICJmaWxsIiwgY29sb3IgPSAiYmxhY2siKSArDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBuKSwgcG9zaXRpb24gPSBwb3NpdGlvbl9maWxsKHZqdXN0ID0gMC41KSwgc2l6ZSA9IDcsIGZvbnRmYWNlID0gImJvbGQiKSArDQogIGNvb3JkX2ZsaXAoKSArDQogIGd1aWRlcyhmaWxsID0gZ3VpZGVfbGVnZW5kKHJldmVyc2UgPSBUUlVFKSkgKw0KICBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXMgPSBjKCIjRkYwMDAwIiwiI0ZGRDcwMCIsIiMwMDgwMDAiLCAiI0RBQTUyMCIpLCBuYW1lID0gIlNjb3JlOiIpICsNCiAgc2NhbGVfeV9jb250aW51b3VzKGxhYmVscyA9IHNjYWxlczo6cGVyY2VudCkgKw0KICB0aGVtZShwYW5lbC5ncmlkLm1ham9yID0gZWxlbWVudF9ibGFuaygpLCANCiAgICAgICAgcGFuZWwuZ3JpZC5taW5vciA9IGVsZW1lbnRfYmxhbmsoKSwgDQogICAgICAgIHBhbmVsLmJhY2tncm91bmQgPSBlbGVtZW50X2JsYW5rKCksDQogICAgICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAyMCksDQogICAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KHNpemUgPSAyMCksDQogICAgICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMjUpLA0KICAgICAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDI1KSwgDQogICAgICAgIGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIiwNCiAgICAgICAgc3RyaXAudGV4dCA9IGVsZW1lbnRfdGV4dChzaXplID0gMjApLA0KICAgICAgICBzdHJpcC5iYWNrZ3JvdW5kID0gZWxlbWVudF9ibGFuaygpLCANCiAgICAgICAgcGxvdC50YWcgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDI1KSkgKyANCiAgeWxhYigiUGVyY2VudGFnZSIpICsgDQogIHhsYWIoIkNFRVNBVCBRdWVzdGlvbiIpICsNCiAgZmFjZXRfd3JhcCh+YmluYXJ5X3BvbGljeSkgKw0KICBsYWJzKHRhZyA9ICJCIikNCg0KZmlnMmINCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnMmIucGRmIiksIHdpZHRoID0gMjUsIGhlaWdodCA9IDE1LCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWcyYi5qcGciKSwgd2lkdGggPSAyNSwgaGVpZ2h0ID0gMTUsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQoNCg0KcG9saWN5IDwtIHNkX2JpYl9hbHRfcG9saWN5JHRvdGFsX3BvaW50c1tzZF9iaWJfYWx0X3BvbGljeSRiaW5hcnlfcG9saWN5ID09ICJDaXRlZCBpbiBQb2xpY3kiXQ0Kbm90X3BvbGljeSA8LSBzZF9iaWJfYWx0X3BvbGljeSR0b3RhbF9wb2ludHNbc2RfYmliX2FsdF9wb2xpY3kkYmluYXJ5X3BvbGljeSA9PSAiTm90IENpdGVkIGluIFBvbGljeSJdDQoNCiMgUVEgUGxvdA0KcXFub3JtKHBvbGljeSkNCnFxbGluZShwb2xpY3ksIGNvbCA9ICJyZWQiKQ0KDQojIFFRIFBsb3QNCnFxbm9ybShub3RfcG9saWN5KQ0KcXFsaW5lKG5vdF9wb2xpY3ksIGNvbCA9ICJyZWQiKQ0KDQp0LnRlc3QocG9saWN5LG5vdF9wb2xpY3kpDQoNCmBgYA0KDQojIyBGaWd1cmUgczUNCkNFRVNBVCBzY29yZXMgZm9yIG1ldGEtYW5hbHlzZXMgcmVmZXJlbmNpbmcgYSByZXBvcnRpbmcgZ3VpZGVsaW5lIChyaWdodCBwYW5lbCkgYW5kIHRob3NlIG5vdCByZWZlcmVuY2luZyBhIHJlcG9ydGluZyBndWlkZWxpbmUgKGxlZnQgcGFuZWwpLg0KYGBge3IsIGZpZy53aWR0aD0yNSwgZmlnLmhlaWdodD0xNX0NCnNkX2JpYl9hbHRfZ3VpZGVsaW5lIDwtIHNkX2JpYl9hbHQgJT4lIA0KICBtdXRhdGUoYmluYXJ5X2d1aWRlbGluZSA9IGlmX2Vsc2UocmVwb3J0aW5nX3N0YW5kYXJkc190eXBlID09ICJOb3QgcmVwb3J0ZWQiLCAiTm90IHJlcG9ydGVkIiwgIlJlcG9ydGVkIikpICU+JSANCiAgICBkcm9wX25hKGJpbmFyeV9ndWlkZWxpbmUsIHRvdGFsX3BvaW50cykNCg0KcGVyY2VudF9jZWVzYXRfc2NvcmUyIDwtIHNkX2JpYl9hbHRfZ3VpZGVsaW5lICU+JQ0KICBmaWx0ZXIoIWlzLm5hKGF1dGhvcl95ZWFyKSkgJT4lDQogIHNlbGVjdChzdHVkaWVzID0gYXV0aG9yX3llYXIsIGJpbmFyeV9ndWlkZWxpbmUsIHN0YXJ0c193aXRoKCJDRUUiKSkgJT4lDQogIG5hLm9taXQoKSAlPiUNCiAgcGl2b3RfbG9uZ2VyKGNvbHMgPSAtYyhzdHVkaWVzLCBiaW5hcnlfZ3VpZGVsaW5lKSwgbmFtZXNfdG8gPSAicXVlc3Rpb24iLCB2YWx1ZXNfdG8gPSAic2NvcmUiKSAlPiUNCiAgZ3JvdXBfYnkoYmluYXJ5X2d1aWRlbGluZSwgcXVlc3Rpb24sIHNjb3JlKSAlPiUNCiAgc3VtbWFyaXNlKG4gPSBuKCksIC5ncm91cHMgPSAnZHJvcCcpICU+JQ0KICBtdXRhdGUocGVyY2VudCA9IChuL3N1bShuKSkqMTAwLCANCiAgICAgICAgIGFjcm9zcyhjKHF1ZXN0aW9uLCBzY29yZSksIGFzLmZhY3RvciksDQogICAgICAgICBxdWVzdGlvbiA9IGZjdF9yZWNvZGUocXVlc3Rpb24sIA0KICAgICAgICAgICBgMS4xYCA9ICJDRUVTQVQyXzEuMSIsDQogICAgICAgICAgIGAyLjFgID0gIkNFRVNBVDJfMi4xIiwNCiAgICAgICAgICAgYDMuMWAgPSAiQ0VFU0FUMl8zLjEiLA0KICAgICAgICAgICBgMy4yYCA9ICJDRUVTQVQyXzMuMiIsDQogICAgICAgICAgIGA0LjFgID0gIkNFRVNBVDJfNC4xIiwNCiAgICAgICAgICAgYDQuMmAgPSAiQ0VFU0FUMl80LjIiLA0KICAgICAgICAgICBgNC4zYCA9ICJDRUVTQVQyXzQuMyIsDQogICAgICAgICAgIGA1LjFgID0gIkNFRVNBVDJfNS4xIiwNCiAgICAgICAgICAgYDUuMmAgPSAiQ0VFU0FUMl81LjIiLA0KICAgICAgICAgICBgNi4xYCA9ICJDRUVTQVQyXzYuMSIsDQogICAgICAgICAgIGA2LjJgID0gIkNFRVNBVDJfNi4yIiwNCiAgICAgICAgICAgYDYuM2AgPSAiQ0VFU0FUMl82LjMiLA0KICAgICAgICAgICBgNy4xYCA9ICJDRUVTQVQyXzcuMSIsDQogICAgICAgICAgIGA3LjJgID0gIkNFRVNBVDJfNy4yIiwNCiAgICAgICAgICAgYDcuM2AgPSAiQ0VFU0FUMl83LjMiLA0KICAgICAgICAgICBgOC4xYCA9ICJDRUVTQVQyXzguMSIpLA0KICAgICAgICAgcXVlc3Rpb24gPSBmYWN0b3IocXVlc3Rpb24sIGxldmVscyA9IHJldihsZXZlbHMocXVlc3Rpb24pKSksDQogICAgICAgICBzY29yZSA9IGZhY3RvcihzY29yZSwgbGV2ZWxzID0gbGV2ZWxzKHNjb3JlKVtjKDQsMSwzLDIpXSkpDQoNCmZpZ3M1IDwtIGdncGxvdChkYXRhID0gcGVyY2VudF9jZWVzYXRfc2NvcmUyLCBhZXMoeCA9IHF1ZXN0aW9uLCB5ID0gcGVyY2VudCwgZmlsbCA9IHNjb3JlKSkgKw0KICBnZW9tX2NvbCh3aWR0aCA9IDAuNywgcG9zaXRpb24gPSAiZmlsbCIsIGNvbG9yID0gImJsYWNrIikgKw0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiksIHBvc2l0aW9uID0gcG9zaXRpb25fZmlsbCh2anVzdCA9IDAuNSksIHNpemUgPSA3LCBmb250ZmFjZSA9ICJib2xkIikgKw0KICBjb29yZF9mbGlwKCkgKw0KICBndWlkZXMoZmlsbCA9IGd1aWRlX2xlZ2VuZChyZXZlcnNlID0gVFJVRSkpICsNCiAgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzID0gYygiI0ZGMDAwMCIsIiNGRkQ3MDAiLCIjMDA4MDAwIiwgIiNEQUE1MjAiKSwgbmFtZSA9ICJTY29yZToiKSArDQogIHNjYWxlX3lfY29udGludW91cyhsYWJlbHMgPSBzY2FsZXM6OnBlcmNlbnQpICsNCiAgdGhlbWUocGFuZWwuZ3JpZC5tYWpvciA9IGVsZW1lbnRfYmxhbmsoKSwgDQogICAgICAgIHBhbmVsLmdyaWQubWlub3IgPSBlbGVtZW50X2JsYW5rKCksIA0KICAgICAgICBwYW5lbC5iYWNrZ3JvdW5kID0gZWxlbWVudF9ibGFuaygpLA0KICAgICAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMjApLA0KICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMjApLA0KICAgICAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDI1KSwNCiAgICAgICAgYXhpcy50aXRsZS55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAyNSksIA0KICAgICAgICBsZWdlbmQucG9zaXRpb24gPSAidG9wIiwgIA0KICAgICAgICBsZWdlbmQuanVzdGlmaWNhdGlvbiA9ICJsZWZ0IiwgIA0KICAgICAgICBsZWdlbmQuZGlyZWN0aW9uID0gImhvcml6b250YWwiLA0KICAgICAgICBsZWdlbmQuYm94ID0gImhvcml6b250YWwiLCAgDQogICAgICAgIGxlZ2VuZC5ib3guanVzdCA9ICJsZWZ0IiwgIA0KICAgICAgICBsZWdlbmQudGl0bGUuYWxpZ24gPSAwLjUsICANCiAgICAgICAgbGVnZW5kLmtleS5zaXplID0gdW5pdCgxLCAiY20iKSwgIA0KICAgICAgICBsZWdlbmQudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9MjUpLA0KICAgICAgICBsZWdlbmQudGV4dCA9IGVsZW1lbnRfdGV4dChzaXplID0gMjUpLCAgDQogICAgICAgIHN0cmlwLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDIwKSwNCiAgICAgICAgc3RyaXAuYmFja2dyb3VuZCA9IGVsZW1lbnRfYmxhbmsoKSkgKyAgDQogIHlsYWIoIlBlcmNlbnRhZ2UiKSArIA0KICB4bGFiKCJDRUVTQVQgUXVlc3Rpb24iKSArDQogIGZhY2V0X3dyYXAofmJpbmFyeV9ndWlkZWxpbmUpIA0KDQpmaWdzNQ0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzNS5wZGYiKSwgd2lkdGggPSAyNSwgaGVpZ2h0ID0gMTUsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZ3M1LmpwZyIpLCB3aWR0aCA9IDI1LCBoZWlnaHQgPSAxNSwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCg0KZ3VpZGxpbmUgPC0gc2RfYmliX2FsdF9ndWlkZWxpbmUkdG90YWxfcG9pbnRzW3NkX2JpYl9hbHRfZ3VpZGVsaW5lJGJpbmFyeV9ndWlkZWxpbmUgPT0gIlJlcG9ydGVkIl0NCm5vX2d1aWRlbGluZSA8LSBzZF9iaWJfYWx0X2d1aWRlbGluZSR0b3RhbF9wb2ludHNbc2RfYmliX2FsdF9ndWlkZWxpbmUkYmluYXJ5X2d1aWRlbGluZSA9PSAiTm90IHJlcG9ydGVkIl0NCg0KIyBRUSBQbG90DQogcXFub3JtKGd1aWRsaW5lKQ0KIHFxbGluZShndWlkbGluZSwgY29sID0gInJlZCIpDQoNCiMgUVEgUGxvdA0KIHFxbm9ybShub19ndWlkZWxpbmUpDQogcXFsaW5lKG5vX2d1aWRlbGluZSwgY29sID0gInJlZCIpDQoNCnQudGVzdChndWlkbGluZSxub19ndWlkZWxpbmUpDQoNCg0KYGBgDQoNCiMjIEZpZ3VyZSBzNiANClNjYXR0ZXIgcGxvdCBzaG93aW5nIHRoZSByZWxhdGlvbnNoaXAgYmV0d2VlbiB0aGUgcXVhbnRpdHkgb2YgdGltZXMgY2l0ZWQgaW4gYSBwb2xpY3kgZG9jdW1lbnQgYW5kIHRvdGFsIENFRVNBVCBzY29yZSANCmBgYHtyLCBmaWcud2lkdGg9MTYsIGZpZy5oZWlnaHQ9MTJ9DQojIENyZWF0ZSB0aGUgcGxvdCANCmZpZ3M2IDwtIHNkX2JpYl9hbHRfcG9saWN5ICU+JQ0KICMgZmlsdGVyKHRvdGFsX3BvaW50cyAhPSAwLCBwb2xpY3kgIT0gMCkgJT4lIA0KICBnZ3Bsb3QoYWVzKHggPSB0b3RhbF9wb2ludHMsIHkgPSBwb2xpY3kpKSArDQogIGdlb21fcG9pbnQoY29sb3IgPSAiIzFiOWU3NyIsIGFscGhhID0gMC44LCBzaXplID0gOCkgKw0KICBnZW9tX3Ntb290aChtZXRob2QgPSBsbSwgc2UgPSBUUlVFLCBjb2xvciA9ICJyZWQiKSArDQogIGxhYnMoeCA9ICJUb3RhbCBDRUVTQVQgc2NvcmUiLCB5ID0gIlBvbGljeSBDb3VudCIpICsNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUocGFuZWwuZ3JpZC5tYWpvci55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgICAgICBheGlzLmxpbmUueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICAgICAgYXhpcy50aWNrcy55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMjUpLA0KICAgICAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMjUpLA0KICAgICAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDMwKSwNCiAgICAgICAgYXhpcy50aXRsZS55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAzMCksDQogICAgICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X2JsYW5rKCkpDQoNCmZpZ3M2DQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczYucGRmIiksIHdpZHRoID0gMjUsIGhlaWdodCA9IDE1LCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzNi5qcGciKSwgd2lkdGggPSAyNSwgaGVpZ2h0ID0gMTUsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQpgYGANCg0KDQojIyBGaWd1cmUgczcNCkJveCBhbmQgdmlvbGluIHBsb3Qgc2hvd2luZyB0aGUgZGlzdHJpYnV0aW9uIG9mIENFRVNBVCBzY29yZXMgZm9yIHN0dWRpZXMgY2l0ZWQgaW4gcG9saWN5IGRvY3VtZW50cyBhbmQgc3R1ZGllcyBub3QgY2l0ZWQgaW4gcG9saWN5IGRvY3VtZW50cw0KYGBge3IsIGZpZy53aWR0aD0yNSwgZmlnLmhlaWdodD0xNX0NCmZpZ3M3IDwtIHNkX2JpYl9hbHRfcG9saWN5ICU+JQ0KICBnZ3Bsb3QoYWVzKHggPSBiaW5hcnlfcG9saWN5LCB5ID0gdG90YWxfcG9pbnRzKSkgKw0KICBnZW9tX3Zpb2xpbihmaWxsID0gIiMxYjllNzciLCBhbHBoYSA9MC4yLCBjb2xvciA9IE5BLCB0cmltID0gRkFMU0UpICsNCiAgZ2VvbV9ib3hwbG90KHdpZHRoID0gMC4wNSwgZmlsbCA9ICJ3aGl0ZSIsIGNvbG9yID0gIiMxYjllNzciLCBvdXRsaWVyLnNoYXBlID0gTkEpICsNCiAgZ2VvbV9qaXR0ZXIod2lkdGggPSAwLjEsIGhlaWdodCA9IDAuMDUsIGNvbG9yID0gIiMxYjllNzciLCBhbHBoYSA9IDAuOCwgc2l6ZSA9IDYpICsNCiAgc2NhbGVfeV9jb250aW51b3VzKGxpbWl0cyA9IGMoMCwgbWF4KHNkX2JpYl9hbHQkdG90YWxfcG9pbnRzKSkpICsNCiAgbGFicyggeCA9ICJQb2xpY3kiLCB5ID0gIlRvdGFsIENFRVNBVCBTY29yZSIpICsNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUocGFuZWwuZ3JpZC5tYWpvci55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgICAgICBheGlzLmxpbmUueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICAgICAgYXhpcy50aWNrcy55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgICAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMjUpLA0KICAgICAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMjUpLA0KICAgICAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQoc2l6ZSA9IDMwKSwNCiAgICAgICAgYXhpcy50aXRsZS55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAzMCksDQogICAgICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X2JsYW5rKCkpDQoNCmZpZ3M3DQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczcucGRmIiksIHdpZHRoID0gMjUsIGhlaWdodCA9IDE1LCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzNy5qcGciKSwgd2lkdGggPSAyNSwgaGVpZ2h0ID0gMTUsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQpgYGANCg0KIyMgRmlndXJlIDNhDQpCYXIgcGxvdCBzaG93aW5nIHRoZSBwZXJjZW50YWdlIGFuZCB0b3RhbCBjb3VudCBvZiBiaWFzIG1ldGhvZG9sb2dpZXMgdXNlZCBpbiBtZXRhLWFuYWx5c2VzIGludmVzdGlnYXRpbmcgdGhlIGltcGFjdHMgb2Ygb3JnYW5vY2hsb3JpbmUgcGVzdGljaWRlcy4gTm90ZSB0aGF0IHNvbWUgbWV0YS1hbmFseXNlcyBtYXkgY29udHJpYnV0ZSB0byBtdWx0aXBsZSBzZWN0aW9ucyBpZiB0aGUgc3R1ZHkgaW52b2x2ZWQgdGhlIHVzZSBvZiBtdWx0aXBsZSBiaWFzIGFzc2Vzc21lbnQgbWV0aG9kb2xvZ2llcy4gDQpgYGB7ciwgZmlnLndpZHRoPTE2LCBmaWcuaGVpZ2h0PTEwfQ0KIyBDYWxjdWxhdGUgdGhlIHRvdGFsIGNvdW50IGZvciBlYWNoIGNhdGVnb3J5DQpiaWFzX21ldGhvZF9jb3VudCA8LSBzZCAlPiUgDQogIHNlcGFyYXRlX3Jvd3MoYmlhc19hc3Nlc3NtZW50X21ldGhvZCwgc2VwID0gIixcXHMrIikgJT4lIA0KICBjb3VudChiaWFzX2Fzc2Vzc21lbnRfbWV0aG9kKSAlPiUNCiAgZmlsdGVyKGJpYXNfYXNzZXNzbWVudF9tZXRob2QgIT0gIk5BIikgJT4lDQogICAgZ3JvdXBfYnkoYmlhc19hc3Nlc3NtZW50X21ldGhvZCkgJT4lDQogIHN1bW1hcmlzZShuID0gc3VtKG4pKQ0KDQojIENhbGN1bGF0ZSBwcm9wb3J0aW9uIGFuZCBwZXJjZW50YWdlIGZvciBlYWNoIGNhdGVnb3J5DQpiaWFzX21ldGhvZF9wY3QgPC0gYmlhc19tZXRob2RfY291bnQgJT4lDQogIG11dGF0ZShwcm9wb3J0aW9uID0gbiAvIDgzLA0KICAgICAgICAgcGVyY2VudGFnZSA9IHByb3BvcnRpb24gKiAxMDApDQoNCiMgQ3JlYXRlIHRoZSBjb3VudCBwbG90DQpmaWczYSA8LSBiaWFzX21ldGhvZF9jb3VudCAlPiUNCiAgZ2dwbG90KGFlcyh4ID0gbiwgeSA9IHJlb3JkZXIoYmlhc19hc3Nlc3NtZW50X21ldGhvZCwgbiksIGZpbGwgPSBpZmVsc2UoZ3JlcGwoIk5vdCByZXBvcnRlZCIsIGJpYXNfYXNzZXNzbWVudF9tZXRob2QpLCAiIzczNzBiMyIsICIjMWI5ZTc3IikpKSArDQogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCB3aWR0aCA9IDAuOCAsIGFscGhhID0gMC43KSArDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBuLCB4ID0gbiAvIDIsIHkgPSByZW9yZGVyKGJpYXNfYXNzZXNzbWVudF9tZXRob2QsIG4pKSwgaGp1c3QgPSAwLjUsIHNpemUgPSAxMiwgY29sb3IgPSAiYmxhY2siKSArDQogIGdlb21fdGV4dChkYXRhID0gYmlhc19tZXRob2RfcGN0LCBhZXMobGFiZWwgPSBwYXN0ZTAoIigiLCByb3VuZChwZXJjZW50YWdlLCAxKSwgIiUpIiksIHggPSBuKSwgDQogICAgICAgICAgICBoanVzdCA9IC0wLjEsIHNpemUgPSAxMiwgY29sb3IgPSAiYmxhY2siLCBmb250ZmFjZSA9ICJib2xkIikgKw0KICBzY2FsZV9maWxsX2lkZW50aXR5KGd1aWRlID0gIm5vbmUiKSArDQogIHNjYWxlX3hfY29udGludW91cyhleHBhbmQgPSBjKDAsIDApLCBsaW1pdHMgPSBjKDAsIG1heChiaWFzX21ldGhvZF9jb3VudCRuKSoxLjMpKSArDQogIGxhYnModGl0bGUgPSAiUHVibGljYXRpb24gQmlhcyBDb3VudCIsIHggPSBOVUxMLCB5ID0gTlVMTCwgdGFnID0gIkEiLCBzaXplID0gMzApICsNCiAgb3JnYW5vY2hsb3JUSEVNRSgpIA0KDQpmaWczYQ0KDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZzNoLnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnM2guanBnIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KYGBgDQoNCiMjIEZpZ3VyZSBzOA0KQWxsdXZpYWwgcGxvdCBzaG93aW5nIHRoZSByZWxhdGlvbnNoaXAgYmV0d2VlbiB0aGUgSm91cm5hbCBDaXRhdGlvbiBSZXBvcnQgQ2F0ZWdvcnkgYW5kIGJpYXMgYXNzZXNzbWVudCBtZXRob2QuDQpgYGB7ciwgZmlnLndpZHRoPTE2LCBmaWcuaGVpZ2h0PTEwfQ0KIyBEYXRhIFRyYW5zZm9ybWF0aW9uIA0KYmlhc19hc3Nlc3NtZW50X2FsbHV2aWFsIDwtIHNkICU+JSANCiAgICBzZXBhcmF0ZV9yb3dzKGJpYXNfYXNzZXNzbWVudF9tZXRob2QsIHNlcCA9ICIsXFxzKyIpICU+JQ0KICAgIHNlcGFyYXRlX3Jvd3MoSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQsIHNlcCA9ICIvXFxzKyIpICU+JSANCiAgICBmaWx0ZXIoIWlzLm5hKGJpYXNfYXNzZXNzbWVudF9tZXRob2QpKSAlPiUNCiAgICBncm91cF9ieShKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCwgYmlhc19hc3Nlc3NtZW50X21ldGhvZCkgJT4lIA0KICAgIGNvdW50KGJpYXNfYXNzZXNzbWVudF9tZXRob2QsIEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkKSAlPiUgDQogICAgc3VtbWFyaXNlKGZyZXEgPSBuKCksIC5ncm91cHMgPSAnZHJvcCcpICU+JSANCiAgICBncm91cF9ieShiaWFzX2Fzc2Vzc21lbnRfbWV0aG9kKQ0KDQojIENyZWF0ZSB0aGUgQWxsdXZpYWwgcGxvdA0KZmlnczggPC0gYmlhc19hc3Nlc3NtZW50X2FsbHV2aWFsICU+JSANCiAgZ2dwbG90KGFlcyh5ID0gZnJlcSAsYXhpczEgPSBKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCwgYXhpczIgPSBiaWFzX2Fzc2Vzc21lbnRfbWV0aG9kKSkgKw0KICBzY2FsZV94X2Rpc2NyZXRlKGxpbWl0cyA9IGMoIkpvdXJuYWwgQ2l0YXRpb24gQ2F0ZWdvcnkiLCAiQmlhcyBBc3Nlc3NtZW50IiksIGV4cGFuZCA9IGMoLjA1LCAuMDUpKSArDQogIHhsYWIoIlZhcmlhYmxlcyIpICsNCiAgZ2VvbV9hbGx1dml1bShhZXMoZmlsbCA9IEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkKSkgKw0KICBnZW9tX3N0cmF0dW0od2lkdGggPSAxLzMuNSwgZmlsbCA9ICJ3aGl0ZSIsIGNvbG9yID0gImJsYWNrIikgKw0KICBnZW9tX3RleHQoc3RhdCA9ICJzdHJhdHVtIiwgYWVzKGxhYmVsID0gYWZ0ZXJfc3RhdChzdHJhdHVtKSksIHNpemUgPSA2KSArDQogIGxhYnMoeD0gIlZhcmlhYmxlcyIsIHkgPSAiRnJlcXVlbmN5IiwgZmlsbCA9ICJKb3VybmFsIENhdGVnb3J5IEFsbG9jYXRlZCIpICsNCiAgc2NhbGVfZmlsbF9icmV3ZXIocGFsZXR0ZSA9ICJEYXJrMiIpICsNCiAgb3JnYW5vY2hsb3JUSEVNRSgpIA0KDQpmaWdzOA0KDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZ3M4LnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczguanBnIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KDQpgYGANCg0KIyMgRmlndXJlIDNiDQpCYXIgcGxvdCBzaG93aW5nIHRoZSBwZXJjZW50YWdlIGFuZCB0b3RhbCBjb3VudCBvZiBoZXRlcm9nZW5laXR5IGFzc2Vzc21lbnQgbWV0aG9kcyB1c2VkIGluIG1ldGEtYW5hbHlzZXMgaW52ZXN0aWdhdGluZyB0aGUgaW1wYWN0cyBvZiBvcmdhbm9jaGxvcmluZSBwZXN0aWNpZGVzLiBOb3RlIHRoYXQgc29tZSBtZXRhLWFuYWx5c2VzIG1heSBjb250cmlidXRlIHRvIG11bHRpcGxlIHNlY3Rpb25zIGlmIHRoZSBzdHVkeSBpbnZvbHZlZCBtdWx0aXBsZSBoZXRlcm9nZW5laXR5IGFzc2Vzc21lbnRzLiBQZXJjZW50YWdlIGlzIHNob3dpbmcgdGhlIHByb3BvcnRpb24gb2Ygc3R1ZGllcy4NCmBgYHtyLCBmaWcud2lkdGg9MTYsIGZpZy5oZWlnaHQ9MTB9DQojIENhbGN1bGF0ZSB0aGUgdG90YWwgY291bnQgZm9yIGVhY2ggY2F0ZWdvcnkNCmhldGVyb2dlbmVpdHlfY291bnQgPC0gc2QgJT4lIA0KICBzZXBhcmF0ZV9yb3dzKGhldGVyb2dlbmVpdHlfYXNzZXNzbWVudF9tZXRob2QsIHNlcCA9ICIsXFxzKyIpICU+JSANCiAgY291bnQoaGV0ZXJvZ2VuZWl0eV9hc3Nlc3NtZW50X21ldGhvZCkgJT4lDQogIGZpbHRlcihoZXRlcm9nZW5laXR5X2Fzc2Vzc21lbnRfbWV0aG9kICE9ICJOQSIpICU+JQ0KICAgIGdyb3VwX2J5KGhldGVyb2dlbmVpdHlfYXNzZXNzbWVudF9tZXRob2QpICU+JQ0KICBzdW1tYXJpc2UobiA9IHN1bShuKSkNCg0KIyBDYWxjdWxhdGUgcHJvcG9ydGlvbiBhbmQgcGVyY2VudGFnZSBmb3IgZWFjaCBjYXRlZ29yeQ0KaGV0ZXJvZ2VuZWl0eV9wY3QgPC0gaGV0ZXJvZ2VuZWl0eV9jb3VudCAlPiUNCiAgbXV0YXRlKHByb3BvcnRpb24gPSBuIC8gODMsDQogICAgICAgICBwZXJjZW50YWdlID0gcHJvcG9ydGlvbiAqIDEwMCkNCg0KIyBDcmVhdGUgdGhlIGNvdW50IHBsb3QNCmZpZzNiIDwtIGhldGVyb2dlbmVpdHlfY291bnQgJT4lDQogIGdncGxvdChhZXMoeCA9IG4sIHkgPSByZW9yZGVyKGhldGVyb2dlbmVpdHlfYXNzZXNzbWVudF9tZXRob2QsIG4pLCBmaWxsID0gaWZlbHNlKGdyZXBsKCJOb3QgcmVwb3J0ZWQiLCBoZXRlcm9nZW5laXR5X2Fzc2Vzc21lbnRfbWV0aG9kKSwgIiM3MzcwYjMiLCAiIzFiOWU3NyIpKSkgKw0KICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5Iiwgd2lkdGggPSAwLjggLCBhbHBoYSA9IDAuNykgKw0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiwgeCA9IG4gLyAyLCB5ID0gcmVvcmRlcihoZXRlcm9nZW5laXR5X2Fzc2Vzc21lbnRfbWV0aG9kLCBuKSksIGhqdXN0ID0gMC41LCBzaXplID0gMTIsIGNvbG9yID0gImJsYWNrIikgKw0KICBnZW9tX3RleHQoZGF0YSA9IGhldGVyb2dlbmVpdHlfcGN0LCBhZXMobGFiZWwgPSBwYXN0ZTAoIigiLCByb3VuZChwZXJjZW50YWdlLCAxKSwgIiUpIiksIHggPSBuKSwgDQogICAgICAgICAgICBoanVzdCA9IC0wLjEsIHNpemUgPSAxMiwgY29sb3IgPSAiYmxhY2siLCBmb250ZmFjZSA9ICJib2xkIikgKw0KICBzY2FsZV9maWxsX2lkZW50aXR5KGd1aWRlID0gIm5vbmUiKSArDQogIHNjYWxlX3hfY29udGludW91cyhleHBhbmQgPSBjKDAsIDApLCBsaW1pdHMgPSBjKDAsIG1heChoZXRlcm9nZW5laXR5X2NvdW50JG4pKjEuMykpICsNCiAgbGFicyh0aXRsZSA9ICJIZXRlcm9nZW5laXR5IENvdW50IiwgeCA9IE5VTEwsIHkgPSBOVUxMLCB0YWcgPSAiQiIsIHNpemUgPSAzMCkgKw0KICBvcmdhbm9jaGxvclRIRU1FKCkgDQoNCmZpZzNiDQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnM2IucGRmIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWczYi5qcGciKSwgd2lkdGggPSAxNiwgaGVpZ2h0ID0gMTAsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQoNCmBgYA0KIA0KIyMgRmlndXJlIHM5IA0KQWxsdXZpYWwgcGxvdCBzaG93aW5nIHRoZSByZWxhdGlvbnNoaXAgYmV0d2VlbiB0aGUgSm91cm5hbCBDaXRhdGlvbiBSZXBvcnQgQ2F0ZWdvcnkgYW5kIGhldGVyb2dlbmVpdHkgYXNzZXNzbWVudCBtZXRob2QuDQpgYGB7ciwgZmlnLndpZHRoPTE2LCBmaWcuaGVpZ2h0PTEwfQ0KIyBEYXRhIFRyYW5zZm9ybWF0aW9uIA0KaGV0ZXJvZ2VuZWl0eV9hbGx1dmlhbCA8LSBzZCAlPiUgDQogICAgc2VwYXJhdGVfcm93cyhoZXRlcm9nZW5laXR5X2Fzc2Vzc21lbnRfbWV0aG9kLCBzZXAgPSAiLFxccysiKSAlPiUNCiAgICBzZXBhcmF0ZV9yb3dzKEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkLCBzZXAgPSAiL1xccysiKSAlPiUgDQogICAgZmlsdGVyKCFpcy5uYShoZXRlcm9nZW5laXR5X2Fzc2Vzc21lbnRfbWV0aG9kKSkgJT4lDQogICAgZ3JvdXBfYnkoSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQsIGhldGVyb2dlbmVpdHlfYXNzZXNzbWVudF9tZXRob2QpICU+JSANCiAgICBjb3VudChoZXRlcm9nZW5laXR5X2Fzc2Vzc21lbnRfbWV0aG9kLCBKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCkgJT4lIA0KICAgIHN1bW1hcmlzZShmcmVxID0gbigpLCAuZ3JvdXBzID0gJ2Ryb3AnKSAlPiUgDQogICAgZ3JvdXBfYnkoaGV0ZXJvZ2VuZWl0eV9hc3Nlc3NtZW50X21ldGhvZCkgDQoNCiMgQ3JlYXRlIHRoZSBBbGx1dmlhbCBwbG90DQpmaWdzOSA8LSBoZXRlcm9nZW5laXR5X2FsbHV2aWFsICU+JSANCmdncGxvdChhZXMoeSA9IGZyZXEgLGF4aXMxID0gSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQsIGF4aXMyID0gaGV0ZXJvZ2VuZWl0eV9hc3Nlc3NtZW50X21ldGhvZCkpICsNCiAgc2NhbGVfeF9kaXNjcmV0ZShsaW1pdHMgPSBjKCJKb3VybmFsIENpdGF0aW9uIENhdGVnb3J5IiwgIkhldGVyb2dlbmVpdHkiKSwgZXhwYW5kID0gYyguMDUsIC4wNSkpICsNCiAgeGxhYigiVmFyaWFibGVzIikgKw0KICBnZW9tX2FsbHV2aXVtKGFlcyhmaWxsID0gSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQpKSArDQogIGdlb21fc3RyYXR1bSh3aWR0aCA9IDEvNC41LCBmaWxsID0gIndoaXRlIiwgY29sb3IgPSAiYmxhY2siKSArDQogIGdlb21fdGV4dChzdGF0ID0gInN0cmF0dW0iLCBhZXMobGFiZWwgPSBhZnRlcl9zdGF0KHN0cmF0dW0pKSwgc2l6ZSA9IDYpICsNCiAgbGFicyh4PSAiVmFyaWFibGVzIiwgeSA9ICJGcmVxdWVuY3kiLCBmaWxsID0gIkpvdXJuYWwgQ2F0ZWdvcnkgQWxsb2NhdGVkIikgKw0KICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIkRhcmsyIikgKw0KICBvcmdhbm9jaGxvclRIRU1FKCkgDQoNCmZpZ3M5DQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczkucGRmIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzOS5qcGciKSwgd2lkdGggPSAxNiwgaGVpZ2h0ID0gMTAsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQpgYGANCiANCiMjIEZpZ3VyZSAzYw0KQmFyIHBsb3Qgc2hvd2luZyB0aGUgcGVyY2VudGFnZSBhbmQgdG90YWwgY291bnQgb2Ygc2Vuc2l0aXZpdHkgYW5hbHlzZXMgY29uZHVjdGVkIGluIG1ldGEtYW5hbHlzZXMgaW52ZXN0aWdhdGluZyB0aGUgaW1wYWN0cyBvZiBvcmdhbm9jaGxvcmluZSBwZXN0aWNpZGVzLiBOb3RlIHRoYXQgc29tZSBtZXRhLWFuYWx5c2VzIG1heSBjb250cmlidXRlIHRvIG11bHRpcGxlIHNlY3Rpb25zIGlmIHRoZSBzdHVkeSBpbnZvbHZlZCBtdWx0aXBsZSBzZW5zaXRpdml0eSBhbmFseXNlcy4NCmBgYHtyLCBmaWcud2lkdGg9MTYsIGZpZy5oZWlnaHQ9MTB9DQojIENhbGN1bGF0ZSB0aGUgdG90YWwgY291bnQgZm9yIGVhY2ggY2F0ZWdvcnkNCnNlbnNpdGl2aXR5X2NvdW50IDwtIHNkICU+JSANCiAgc2VwYXJhdGVfcm93cyhzZW5zaXRpdml0eV9hbmFseXNpc19tZXRob2QsIHNlcCA9ICIsXFxzKyIpICU+JSANCiAgY291bnQoc2Vuc2l0aXZpdHlfYW5hbHlzaXNfbWV0aG9kKSAlPiUNCiAgZmlsdGVyKHNlbnNpdGl2aXR5X2FuYWx5c2lzX21ldGhvZCAhPSAiTkEiKSAlPiUgICANCiAgZ3JvdXBfYnkoc2Vuc2l0aXZpdHlfYW5hbHlzaXNfbWV0aG9kKSAlPiUNCiAgc3VtbWFyaXNlKG4gPSBzdW0obikpDQoNCiMgQ2FsY3VsYXRlIHByb3BvcnRpb24gYW5kIHBlcmNlbnRhZ2UgZm9yIGVhY2ggY2F0ZWdvcnkNCnNlbnNpdGl2aXR5X3BjdCA8LSBzZW5zaXRpdml0eV9jb3VudCAlPiUNCiAgbXV0YXRlKHByb3BvcnRpb24gPSBuIC8gODMsDQogICAgICAgICBwZXJjZW50YWdlID0gcHJvcG9ydGlvbiAqIDEwMCkNCg0KIyBDcmVhdGUgdGhlIGNvdW50IHBsb3QNCmZpZzNjIDwtIHNlbnNpdGl2aXR5X2NvdW50ICU+JQ0KICBnZ3Bsb3QoYWVzKHggPSBuLCB5ID0gcmVvcmRlcihzZW5zaXRpdml0eV9hbmFseXNpc19tZXRob2QsIG4pLCBmaWxsID0gaWZlbHNlKGdyZXBsKCJOb3QgcmVwb3J0ZWQiLCBzZW5zaXRpdml0eV9hbmFseXNpc19tZXRob2QpLCAiIzczNzBiMyIsICIjMWI5ZTc3IikpKSArDQogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCB3aWR0aCA9IDAuOCAsIGFscGhhID0gMC43KSArDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBuLCB4ID0gbiAvIDIsIHkgPSByZW9yZGVyKHNlbnNpdGl2aXR5X2FuYWx5c2lzX21ldGhvZCwgbikpLCBoanVzdCA9IDAuNSwgc2l6ZSA9IDEyLCBjb2xvciA9ICJibGFjayIpICsNCiAgZ2VvbV90ZXh0KGRhdGEgPSBzZW5zaXRpdml0eV9wY3QsIGFlcyhsYWJlbCA9IHBhc3RlMCgiKCIsIHJvdW5kKHBlcmNlbnRhZ2UsIDEpLCAiJSkiKSwgeCA9IG4pLCANCiAgICAgICAgICAgIGhqdXN0ID0gLTAuMSwgc2l6ZSA9IDEyLCBjb2xvciA9ICJibGFjayIsIGZvbnRmYWNlID0gImJvbGQiKSArDQogIHNjYWxlX2ZpbGxfaWRlbnRpdHkoZ3VpZGUgPSAibm9uZSIpICsNCiAgc2NhbGVfeF9jb250aW51b3VzKGV4cGFuZCA9IGMoMCwgMCksIGxpbWl0cyA9IGMoMCwgbWF4KHNlbnNpdGl2aXR5X2NvdW50JG4pKjEuMykpICsNCiAgbGFicyh0aXRsZSA9ICJTZW5zaXRpdml0eSBBbmFseXNpcyBDb3VudCIsIHggPSBOVUxMLCB5ID0gTlVMTCwgdGFnID0gIkMiLCBzaXplID0gMzApICsNCiAgb3JnYW5vY2hsb3JUSEVNRSgpIA0KDQpmaWczYw0KDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZzNjLnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnM2MuanBnIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KDQpgYGANCg0KIyMgRmlndXJlIHMxMA0KQWxsdXZpYWwgcGxvdCBzaG93aW5nIHRoZSByZWxhdGlvbnNoaXAgYmV0d2VlbiB0aGUgSm91cm5hbCBDaXRhdGlvbiBSZXBvcnQgQ2F0ZWdvcnkgYW5kIHNlbnNpdGl2aXR5IGFuYWx5c2lzLg0KYGBge3IsIGZpZy53aWR0aD0xNiwgZmlnLmhlaWdodD0xMH0NCiMgRGF0YSBUcmFuc2Zvcm1hdGlvbiANCnNlbnNpdGl2aXR5X2FuYWx5c2lzX2FsbHV2aWFsIDwtIHNkICU+JSANCiAgICBzZXBhcmF0ZV9yb3dzKHNlbnNpdGl2aXR5X2FuYWx5c2lzX21ldGhvZCwgc2VwID0gIixcXHMrIikgJT4lDQogICAgc2VwYXJhdGVfcm93cyhKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCwgc2VwID0gIi9cXHMrIikgJT4lIA0KICAgIGZpbHRlcighaXMubmEoc2Vuc2l0aXZpdHlfYW5hbHlzaXNfbWV0aG9kKSkgJT4lDQogICAgZ3JvdXBfYnkoSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQsIHNlbnNpdGl2aXR5X2FuYWx5c2lzX21ldGhvZCkgJT4lIA0KICAgIGNvdW50KHNlbnNpdGl2aXR5X2FuYWx5c2lzX21ldGhvZCwgSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQpICU+JSANCiAgICBzdW1tYXJpc2UoZnJlcSA9IG4oKSwgLmdyb3VwcyA9ICdkcm9wJykgJT4lIA0KICAgIGdyb3VwX2J5KHNlbnNpdGl2aXR5X2FuYWx5c2lzX21ldGhvZCkNCg0KIyBDcmVhdGUgdGhlIEFsbHV2aWFsIHBsb3QNCmZpZ3MxMCA8LSBzZW5zaXRpdml0eV9hbmFseXNpc19hbGx1dmlhbCAlPiUgDQpnZ3Bsb3QoYWVzKHkgPSBmcmVxICxheGlzMSA9IEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkLCBheGlzMiA9IHNlbnNpdGl2aXR5X2FuYWx5c2lzX21ldGhvZCkpICsNCiAgc2NhbGVfeF9kaXNjcmV0ZShsaW1pdHMgPSBjKCJKb3VybmFsIENpdGF0aW9uIENhdGVnb3J5IiwgIlNlbnNpdGl2aXR5IEFuYWx5c2lzIiksIGV4cGFuZCA9IGMoLjA1LCAuMDUpKSArDQogIHhsYWIoIlZhcmlhYmxlcyIpICsNCiAgZ2VvbV9hbGx1dml1bShhZXMoZmlsbCA9IEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkKSkgKw0KICBnZW9tX3N0cmF0dW0od2lkdGggPSAxLzQsIGZpbGwgPSAid2hpdGUiLCBjb2xvciA9ICJibGFjayIpICsNCiAgZ2VvbV90ZXh0KHN0YXQgPSAic3RyYXR1bSIsIGFlcyhsYWJlbCA9IGFmdGVyX3N0YXQoc3RyYXR1bSkpLCBzaXplID0gNSkgKw0KICBsYWJzKHg9ICJWYXJpYWJsZXMiLCB5ID0gIkZyZXF1ZW5jeSIsIGZpbGwgPSAiSm91cm5hbCBDYXRlZ29yeSBBbGxvY2F0ZWQiKSArDQogIHNjYWxlX2ZpbGxfYnJld2VyKHBhbGV0dGUgPSAiRGFyazIiKSArDQogIG9yZ2Fub2NobG9yVEhFTUUoKSANCg0KZmlnczEwDQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczEwLnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczEwLmpwZyIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCg0KYGBgDQoNCiMjIEZpZ3VyZSAzZA0KQmFyIHBsb3Qgc2hvd2luZyB0aGUgcGVyY2VudGFnZSBhbmQgdG90YWwgY291bnQgb2YgcmVwb3J0aW5nIGd1aWRlbGluZXMgdXNlZCBpbiBtZXRhLWFuYWx5c2VzIGludmVzdGlnYXRpbmcgdGhlIGltcGFjdHMgb2Ygb3JnYW5vY2hsb3JpbmUgcGVzdGljaWRlcy4gTm90ZSB0aGF0IHNvbWUgbWV0YS1hbmFseXNlcyBtYXkgY29udHJpYnV0ZSB0byBtdWx0aXBsZSBzZWN0aW9ucyBpZiB0aGUgc3R1ZHkgaW52b2x2ZWQgdGhlIHVzZSBvZiBtdWx0aXBsZSByZXBvcnRpbmcgZ3VpZGVsaW5lcy4NCmBgYHtyLCBmaWcud2lkdGg9MTYsIGZpZy5oZWlnaHQ9MTB9DQojIENhbGN1bGF0ZSB0aGUgdG90YWwgY291bnQgZm9yIGVhY2ggY2F0ZWdvcnkNCnJlcG9ydGluZ19ndWlkZV9jb3VudCA8LSBzZCAlPiUgDQogIHNlcGFyYXRlX3Jvd3MocmVwb3J0aW5nX3N0YW5kYXJkc190eXBlLCBzZXAgPSAiLFxccysiKSAlPiUgDQogIGNvdW50KHJlcG9ydGluZ19zdGFuZGFyZHNfdHlwZSkgJT4lDQogIGZpbHRlcihyZXBvcnRpbmdfc3RhbmRhcmRzX3R5cGUgIT0gIk5BIikgJT4lDQogIG11dGF0ZShyZXBvcnRpbmdfc3RhbmRhcmRzX3R5cGUgPSBpZmVsc2UobiA8IDMsICJPdGhlciBHdWlkZWxpbmVzIiwgYXMuY2hhcmFjdGVyKHJlcG9ydGluZ19zdGFuZGFyZHNfdHlwZSkpKSAlPiUNCiAgZ3JvdXBfYnkocmVwb3J0aW5nX3N0YW5kYXJkc190eXBlKSAlPiUNCiAgc3VtbWFyaXNlKG4gPSBzdW0obikpDQoNCiMgQ2FsY3VsYXRlIHByb3BvcnRpb24gYW5kIHBlcmNlbnRhZ2UgZm9yIGVhY2ggY2F0ZWdvcnkNCnJlcG9ydGluZ19ndWlkZV9wY3QgPC0gcmVwb3J0aW5nX2d1aWRlX2NvdW50ICU+JQ0KICBtdXRhdGUocHJvcG9ydGlvbiA9IG4gLyA4MywNCiAgICAgICAgIHBlcmNlbnRhZ2UgPSBwcm9wb3J0aW9uICogMTAwKQ0KDQojIENyZWF0ZSB0aGUgY291bnQgcGxvdA0KZmlnM2QgPC0gcmVwb3J0aW5nX2d1aWRlX2NvdW50ICU+JQ0KICBnZ3Bsb3QoYWVzKHggPSBuLCB5ID0gcmVvcmRlcihyZXBvcnRpbmdfc3RhbmRhcmRzX3R5cGUsIG4pLCBmaWxsID0gaWZlbHNlKGdyZXBsKCJOb3QgcmVwb3J0ZWQiLCByZXBvcnRpbmdfc3RhbmRhcmRzX3R5cGUpLCAiIzczNzBiMyIsICIjMWI5ZTc3IikpKSArDQogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCB3aWR0aCA9IDAuOCAsIGFscGhhID0gMC43KSArDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBuLCB4ID0gbiAvIDIsIHkgPSByZW9yZGVyKHJlcG9ydGluZ19zdGFuZGFyZHNfdHlwZSwgbikpLCBoanVzdCA9IDAuNSwgc2l6ZSA9IDEyLCBjb2xvciA9ICJibGFjayIpICsNCiAgZ2VvbV90ZXh0KGRhdGEgPSByZXBvcnRpbmdfZ3VpZGVfcGN0LCBhZXMobGFiZWwgPSBwYXN0ZTAoIigiLCByb3VuZChwZXJjZW50YWdlLCAwKSwgIiUpIiksIHggPSBuKSwgDQogICAgICAgICAgICBoanVzdCA9IC0wLjEsIHNpemUgPSAxMiwgY29sb3IgPSAiYmxhY2siLCBmb250ZmFjZSA9ICJib2xkIikgKw0KICBzY2FsZV9maWxsX2lkZW50aXR5KGd1aWRlID0gIm5vbmUiKSArDQogc2NhbGVfeF9jb250aW51b3VzKGV4cGFuZCA9IGMoMCwgMCksIGxpbWl0cyA9IGMoMCwgbWF4KHJlcG9ydGluZ19ndWlkZV9jb3VudCRuKSoxLjMpKSArDQogIGxhYnModGl0bGUgPSAiUmVwb3J0aW5nIEd1aWRlbGluZSBDb3VudCIsIHggPSBOVUxMLCB5ID0gTlVMTCwgc2l6ZSA9IDMwKSArDQogIG9yZ2Fub2NobG9yVEhFTUUoKSANCg0KZmlnM2QNCg0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWczZC5wZGYiKSwgd2lkdGggPSAxNiwgaGVpZ2h0ID0gMTAsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZzNkLmpwZyIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCmBgYA0KDQojIyBGaWd1cmUgczExDQpBbiBhbGx1dmlhbCBwbG90IHNob3dpbmcgdGhlIHJlbGF0aW9uc2hpcCBiZXR3ZWVuIHRoZSBKb3VybmFsIENpdGF0aW9uIFJlcG9ydCBDYXRlZ29yeSBhbmQgcmVwb3J0aW5nIGd1aWRlbGluZSB1c2VkIA0KYGBge3IsIGZpZy53aWR0aD0xNiwgZmlnLmhlaWdodD0xMH0NCiMgRGF0YSBUcmFuc2Zvcm1hdGlvbiANCnJlcG9ydGluZ19zdGFuZGFyZHNfYWxsdXZpYWwgPC0gc2QgJT4lIA0KICAgIHNlcGFyYXRlX3Jvd3MocmVwb3J0aW5nX3N0YW5kYXJkc190eXBlLCBzZXAgPSAiLFxccysiKSAlPiUNCiAgICBzZXBhcmF0ZV9yb3dzKEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkLCBzZXAgPSAiL1xccysiKSAlPiUNCiAgICBmaWx0ZXIoIWdyZXBsKCJubyBjYXRlZ29yeSBmb3VuZCIsIEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkLCBpZ25vcmUuY2FzZSA9IFRSVUUpKSAlPiUgDQogICAgZmlsdGVyKCFpcy5uYShyZXBvcnRpbmdfc3RhbmRhcmRzX3R5cGUpKSAlPiUNCiAgICBncm91cF9ieShKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCwgcmVwb3J0aW5nX3N0YW5kYXJkc190eXBlKSAlPiUgDQogICAgY291bnQocmVwb3J0aW5nX3N0YW5kYXJkc190eXBlLCBKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCkgJT4lIA0KICAgIHN1bW1hcmlzZShmcmVxID0gbigpLCAuZ3JvdXBzID0gJ2Ryb3AnKSAlPiUgDQogICAgZ3JvdXBfYnkocmVwb3J0aW5nX3N0YW5kYXJkc190eXBlKQ0KDQojIENyZWF0ZSB0aGUgQWxsdXZpYWwgcGxvdA0KZmlnczExIDwtIHJlcG9ydGluZ19zdGFuZGFyZHNfYWxsdXZpYWwgJT4lIA0KZ2dwbG90KCBhZXMoeSA9IGZyZXEgLGF4aXMxID0gSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQsIGF4aXMyID0gcmVwb3J0aW5nX3N0YW5kYXJkc190eXBlKSkgKw0KICBzY2FsZV94X2Rpc2NyZXRlKGxpbWl0cyA9IGMoIkpvdXJuYWwgQ2l0YXRpb24gQ2F0ZWdvcnkiLCAiUmVwb3J0aW5nIFN0YW5kYXJkcyBUeXBlIiksIGV4cGFuZCA9IGMoLjA1LCAuMDUpKSArDQogIHhsYWIoIlZhcmlhYmxlcyIpICsNCiAgZ2VvbV9hbGx1dml1bShhZXMoZmlsbCA9IEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkKSkgKw0KICBnZW9tX3N0cmF0dW0od2lkdGggPSAxLzMuNSwgZmlsbCA9ICJ3aGl0ZSIsIGNvbG9yID0gImJsYWNrIikgKw0KICBsYWJzKHg9ICJWYXJpYWJsZXMiLCB5ID0gIkZyZXF1ZW5jeSIsIGZpbGwgPSAiSm91cm5hbCBDYXRlZ29yeSBBbGxvY2F0ZWQiKSArDQogIGdlb21fdGV4dChzdGF0ID0gInN0cmF0dW0iLCBhZXMobGFiZWwgPSBhZnRlcl9zdGF0KHN0cmF0dW0pKSwgc2l6ZSA9IDYpICsNCiAgICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIkRhcmsyIikgKw0KICBvcmdhbm9jaGxvclRIRU1FKCkgDQoNCmZpZ3MxMQ0KDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZ3MxMS5wZGYiKSwgd2lkdGggPSAxNiwgaGVpZ2h0ID0gMTAsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZ3MxMS5qcGciKSwgd2lkdGggPSAxNiwgaGVpZ2h0ID0gMTAsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQpgYGANCg0KIyMgRmlndXJlIDMNCmBgYHtyLCBmaWcud2lkdGg9MzYsIGZpZy5oZWlnaHQ9MjB9DQoNCmZpZzMgPC0gZmlnM2EgKyBmaWczYiArIGZpZzNjICsgZmlnM2QgKw0KICAgICAgICBwbG90X2xheW91dChuY29sID0gMiwgbnJvdyA9IDIpDQpmaWczDQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnMy5wZGYiKSwgd2lkdGggPSAzNiAsIGhlaWdodCA9IDIwICwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDQwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnMy5qcGciKSwgd2lkdGggPSAzNiAsIGhlaWdodCA9IDIwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gNDAwKQ0KYGBgDQoNCiMjIEZpZ3VyZSBzMTINCkJhciBwbG90IHNob3dpbmcgdGhlIHBlcmNlbnRhZ2UgYW5kIHRvdGFsIGNvdW50IG9mIHNjaWVudGlmaWMgbGl0ZXJhdHVyZSBkYXRhYmFzZXMgdXNlZCBpbiBtZXRhLWFuYWx5c2VzIGludmVzdGlnYXRpbmcgdGhlIGltcGFjdHMgb2Ygb3JnYW5vY2hsb3JpbmUgcGVzdGljaWRlcy4gTm90ZSB0aGF0IHNvbWUgbWV0YS1hbmFseXNlcyBtYXkgY29udHJpYnV0ZSB0byBtdWx0aXBsZSBzZWN0aW9ucyBpZiB0aGUgc3R1ZHkgaW52b2x2ZWQgbXVsdGlwbGUgc2NpZW50aWZpYyBsaXRlcmF0dXJlIGRhdGFiYXNlcy4gVGhlICJPdGhlciBkYXRhYmFzZXMiIGNhdGVnb3J5IGluY2x1ZGVzIGFsbCBkYXRhYmFzZXMgd2l0aCBhIGNvdW50IG9mIDMgb3IgbGVzcy4gUGVyY2VudGFnZSBpcyBzaG93aW5nIHRoZSBwcm9wb3J0aW9uIG9mIHN0dWRpZXMuDQpgYGB7ciwgZmlnLndpZHRoPTE2LCBmaWcuaGVpZ2h0PTEwfQ0KIyBDYWxjdWxhdGUgdGhlIHRvdGFsIGNvdW50IGZvciBlYWNoIGNhdGVnb3J5DQpkYXRhYmFzZV9jb3VudCA8LSBzZCAlPiUgDQogIHNlcGFyYXRlX3Jvd3MoZGF0YWJhc2Vfc2VhcmNoLCBzZXAgPSAiLFxccysiKSAlPiUgDQogIGNvdW50KGRhdGFiYXNlX3NlYXJjaCkgJT4lIA0KICBmaWx0ZXIoZGF0YWJhc2Vfc2VhcmNoICE9ICJOQSIpICU+JSANCiAgYXJyYW5nZShkZXNjKG4pKSAlPiUgDQogIG11dGF0ZShkYXRhYmFzZV9zZWFyY2ggPSBpZmVsc2Uobjw9IDMsICJPdGhlciBkYXRhYmFzZXMiLCBhcy5jaGFyYWN0ZXIoZGF0YWJhc2Vfc2VhcmNoKSkpICU+JSANCiAgICBncm91cF9ieShkYXRhYmFzZV9zZWFyY2gpICU+JQ0KICBzdW1tYXJpc2UobiA9IHN1bShuKSkNCg0KIyBDYWxjdWxhdGUgcHJvcG9ydGlvbiBhbmQgcGVyY2VudGFnZSBmb3IgZWFjaCBjYXRlZ29yeQ0KZGF0YWJhc2VfcGN0IDwtIGRhdGFiYXNlX2NvdW50ICU+JQ0KICBtdXRhdGUocHJvcG9ydGlvbiA9IG4gLyA4MywgIyA4MyBpcyBudW1iZXIgb2Ygc3R1ZGllcyBhc3Nlc3NlZCBmb3IgQ0VFU0FUDQogICAgICAgICBwZXJjZW50YWdlID0gcHJvcG9ydGlvbiAqIDEwMCkNCg0KIyBDcmVhdGUgdGhlIGNvdW50IHBsb3QNCmZpZ3MxMiA8LSBkYXRhYmFzZV9jb3VudCAlPiUNCiAgZ2dwbG90KGFlcyh4ID0gbiwgeSA9IHJlb3JkZXIoZGF0YWJhc2Vfc2VhcmNoLCBuKSwgZmlsbCA9ICIjMWI5ZTc3IikpICsNCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIHdpZHRoID0gMC44ICwgYWxwaGEgPSAwLjcpICsNCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IG4sIHggPSBuIC8gMiwgeSA9IHJlb3JkZXIoZGF0YWJhc2Vfc2VhcmNoLCBuKSksIGhqdXN0ID0gMC41LCBzaXplID0gMTIsIGNvbG9yID0gImJsYWNrIikgKw0KICBnZW9tX3RleHQoZGF0YSA9IGRhdGFiYXNlX3BjdCwgYWVzKGxhYmVsID0gcGFzdGUwKCIoIiwgcm91bmQocGVyY2VudGFnZSwgMSksICIlKSIpLCB4ID0gbiksIA0KICAgICAgICAgICAgaGp1c3QgPSAtMC4xLCBzaXplID0gMTIsIGNvbG9yID0gImJsYWNrIiwgZm9udGZhY2UgPSAiYm9sZCIpICsNCiAgc2NhbGVfZmlsbF9pZGVudGl0eShndWlkZSA9ICJub25lIikgKw0KICBzY2FsZV94X2NvbnRpbnVvdXMoZXhwYW5kID0gYygwLCAwKSwgbGltaXRzID0gYygwLCBtYXgoZGF0YWJhc2VfY291bnQkbikqMS4zKSkgKw0KICBsYWJzKHRpdGxlID0gTlVMTCwgeCA9IE5VTEwsIHkgPSBOVUxMKSArDQogIG9yZ2Fub2NobG9yVEhFTUUoKSANCg0KZmlnczEyDQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczEyLnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczEyLmpwZyIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCmBgYA0KDQojIyBGaWd1cmUgczEzDQpBbGx1dmlhbCBwbG90IHNob3dpbmcgdGhlIHJlbGF0aW9uc2hpcCBiZXR3ZWVuIHRoZSBKb3VybmFsIENpdGF0aW9uIFJlcG9ydCBDYXRlZ29yeSBhbmQgdGhlIHNjaWVudGlmaWMgbGl0ZXJhdHVyZSBkYXRhYmFzZSB1c2VkLiBGaWx0ZXJlZCBmb3Igc2NpZW50aWZpYyBsaXRlcmF0dXJlIGRhdGFiYXNlIGNvdW50cyBncmVhdGVyIHRoYW4gb3IgZXF1YWwgdG8gMy4gDQpgYGB7ciwgZmlnLndpZHRoPTE2LCBmaWcuaGVpZ2h0PTEwfQ0KIyBSZW5hbWUgRW52aXJvbm1lbnRhbCBTY2llbmNlDQpzZCA8LSBzZCAlPiUNCiAgbXV0YXRlKEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkID0gc3RyX3JlcGxhY2UoSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQsICJFbnZpcm9ubWVudGFsIFNjaWVuY2UiLCAiRW52aXJvbm1lbnRhbFxuU2NpZW5jZSIpKQ0KDQojIERhdGEgVHJhbnNmb3JtYXRpb24gDQpkYXRhYmFzZV9hbGx1dmlhbCA8LSBzZCAlPiUgDQogICAgc2VwYXJhdGVfcm93cyhkYXRhYmFzZV9zZWFyY2gsIHNlcCA9ICIsXFxzKyIpICU+JQ0KICAgIGdyb3VwX2J5KEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkLCBkYXRhYmFzZV9zZWFyY2gpICU+JSANCiAgICBjb3VudChkYXRhYmFzZV9zZWFyY2gsIEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkKSAlPiUgDQogICAgc3VtbWFyaXNlKGZyZXEgPSBuKCksIC5ncm91cHMgPSAnZHJvcCcpICU+JSANCiAgICBncm91cF9ieShkYXRhYmFzZV9zZWFyY2gpICU+JSANCiAgICBmaWx0ZXIoc3VtKGZyZXEpID49IDMpICU+JSANCiAgICBmaWx0ZXIoZGF0YWJhc2Vfc2VhcmNoICE9ICJOQSIpDQoNCiMgQ3JlYXRlIHRoZSBBbGx1dmlhbCBwbG90DQpmaWdzMTMgPC0gZGF0YWJhc2VfYWxsdXZpYWwgJT4lIA0KZ2dwbG90KGFlcyh5ID0gZnJlcSAsYXhpczEgPSBKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCwgYXhpczIgPSBkYXRhYmFzZV9zZWFyY2gpKSArDQogIHNjYWxlX3hfZGlzY3JldGUobGltaXRzID0gYygiSm91cm5hbCBDaXRhdGlvbiBSZXBvcnQiLCAiRGF0YWJhc2UgU2VhcmNoIiksIGV4cGFuZCA9IGMoLjA1LCAuMDUpKSArDQogIHhsYWIoIlZhcmlhYmxlcyIpICsNCiAgeWxhYigiRnJlcXVlbmN5IikgKw0KICBnZW9tX2FsbHV2aXVtKGFlcyhmaWxsID0gSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQpKSArDQogIGdlb21fc3RyYXR1bSh3aWR0aCA9IDEvNC41LCBmaWxsID0gIndoaXRlIiwgY29sb3IgPSAiYmxhY2siKSArDQogIGdlb21fdGV4dChzdGF0ID0gInN0cmF0dW0iLCBhZXMobGFiZWwgPSBhZnRlcl9zdGF0KHN0cmF0dW0pKSwgc2l6ZSA9IDYpICsNCiAgbGFicyh4PSAiVmFyaWFibGVzIiwgeSA9ICJGcmVxdWVuY3kiLCBmaWxsID0gIkpvdXJuYWwgQ2F0ZWdvcnkgQWxsb2NhdGVkIikgKw0KICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIkRhcmsyIikgKw0KICBvcmdhbm9jaGxvclRIRU1FKCkgDQoNCmZpZ3MxMw0KDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZ3MxMy5wZGYiKSwgd2lkdGggPSAxNiwgaGVpZ2h0ID0gMTAsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZ3MxMy5qcGciKSwgd2lkdGggPSAxNiwgaGVpZ2h0ID0gMTAsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQpgYGANCg0KIyMgRmlndXJlIHMxNA0KQmFyIHBsb3Qgc2hvd2luZyB0aGUgcGVyY2VudGFnZSBhbmQgdG90YWwgY291bnQgb2Ygc29mdHdhcmUgZm9yIGFuYWx5c2lzIHVzZWQgaW4gbWV0YS1hbmFseXNlcyBpbnZlc3RpZ2F0aW5nIHRoZSBpbXBhY3RzIG9mIG9yZ2Fub2NobG9yaW5lIHBlc3RpY2lkZXMuIE5vdGUgdGhhdCBzb21lIG1ldGEtYW5hbHlzZXMgbWF5IGNvbnRyaWJ1dGUgdG8gbXVsdGlwbGUgc2VjdGlvbnMgaWYgdGhlIHN0dWR5IGludm9sdmVkIG11bHRpcGxlIHNvZnR3YXJlLiBQZXJjZW50YWdlIGlzIHNob3dpbmcgdGhlIHByb3BvcnRpb24gb2Ygc3R1ZGllcy4NCmBgYHtyLCBmaWcud2lkdGg9MTYsIGZpZy5oZWlnaHQ9MTB9DQojIENhbGN1bGF0ZSB0aGUgdG90YWwgY291bnQgZm9yIGVhY2ggY2F0ZWdvcnkNCnNvZnR3YXJlX2NvdW50IDwtIHNkICU+JQ0KICBzZXBhcmF0ZV9yb3dzKHNvZnR3YXJlX2FuYWx5c2lzLCBzZXAgPSAiLFxccysiKSAlPiUNCiAgbXV0YXRlKHNvZnR3YXJlX2FuYWx5c2lzID0gaWZlbHNlKGdyZXBsKCJjb21wcmVoZW5zaXZlIG1ldGEtYW5hbHlzaXMiLCBzb2Z0d2FyZV9hbmFseXNpcyksICJDTUFTIiwgc29mdHdhcmVfYW5hbHlzaXMpKSAlPiUNCiAgY291bnQoc29mdHdhcmVfYW5hbHlzaXMpICU+JQ0KICBmaWx0ZXIoc29mdHdhcmVfYW5hbHlzaXMgIT0gIk5BIikgJT4lDQogIGFycmFuZ2UoZGVzYyhuKSkgJT4lDQogIG11dGF0ZShzb2Z0d2FyZV9hbmFseXNpcyA9IGlmZWxzZShuIDwgMiwgIk90aGVyIFNvZnR3YXJlIiwgYXMuY2hhcmFjdGVyKHNvZnR3YXJlX2FuYWx5c2lzKSkpICU+JQ0KICBncm91cF9ieShzb2Z0d2FyZV9hbmFseXNpcykgJT4lDQogIHN1bW1hcmlzZShuID0gc3VtKG4pKQ0KDQojIENhbGN1bGF0ZSBwcm9wb3J0aW9uIGFuZCBwZXJjZW50YWdlIGZvciBlYWNoIGNhdGVnb3J5DQpzb2Z0d2FyZV9wY3QgPC0gc29mdHdhcmVfY291bnQgJT4lDQogIG11dGF0ZShwcm9wb3J0aW9uID0gbiAvIDgzLA0KICAgICAgICAgcGVyY2VudGFnZSA9IHByb3BvcnRpb24gKiAxMDApDQoNCiMgQ3JlYXRlIHRoZSBjb3VudCBwbG90DQpmaWdzMTQgPC0gc29mdHdhcmVfY291bnQgJT4lDQogIGdncGxvdChhZXMoeCA9IG4sIHkgPSByZW9yZGVyKHNvZnR3YXJlX2FuYWx5c2lzLCBuKSwgZmlsbCA9ICIjMWI5ZTc3IikpICsNCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIHdpZHRoID0gMC44ICwgYWxwaGEgPSAwLjcpICsNCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IG4sIHggPSBuIC8gMiwgeSA9IHJlb3JkZXIoc29mdHdhcmVfYW5hbHlzaXMsIG4pKSwgaGp1c3QgPSAwLjUsIHNpemUgPSAxMiwgY29sb3IgPSAiYmxhY2siKSArDQogIGdlb21fdGV4dChkYXRhID0gc29mdHdhcmVfcGN0LCBhZXMobGFiZWwgPSBwYXN0ZTAoIigiLCByb3VuZChwZXJjZW50YWdlLCAxKSwgIiUpIiksIHggPSBuKSwgDQogICAgICAgICAgICBoanVzdCA9IC0wLjEsIHNpemUgPSAxMiwgY29sb3IgPSAiYmxhY2siLCBmb250ZmFjZSA9ICJib2xkIikgKw0KICBzY2FsZV9maWxsX2lkZW50aXR5KGd1aWRlID0gIm5vbmUiKSArDQogIHNjYWxlX3hfY29udGludW91cyhleHBhbmQgPSBjKDAsIDApLCBsaW1pdHMgPSBjKDAsIG1heChzb2Z0d2FyZV9jb3VudCRuKSoxLjMpKSArDQogIGxhYnModGl0bGUgPSBOVUxMLCB4ID0gTlVMTCwgeSA9IE5VTEwpICsNCiAgb3JnYW5vY2hsb3JUSEVNRSgpIA0KDQpmaWdzMTQNCg0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzMTQucGRmIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzMTQuanBnIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KYGBgDQoNCiMjIEZpZ3VyZSBzMTUgDQpBbGx1dmlhbCBwbG90IHNob3dpbmcgdGhlIHJlbGF0aW9uc2hpcCBiZXR3ZWVuIHRoZSBKb3VybmFsIENpdGF0aW9uIFJlcG9ydCBDYXRlZ29yeSBhbmQgdGhlIHNvZnR3YXJlIHVzZWQgZm9yIGFuYWx5c2lzLg0KYGBge3IsIGZpZy53aWR0aD0xNiwgZmlnLmhlaWdodD0xMH0NCiMgRGF0YSBUcmFuc2Zvcm1hdGlvbiANCnNvZnR3YXJlX2FuYWx5c2lzX2FsbHV2aWFsIDwtIHNkICU+JSANCiAgICBzZXBhcmF0ZV9yb3dzKHNvZnR3YXJlX2FuYWx5c2lzLCBzZXAgPSAiLFxccysiKSAlPiUNCiAgICBzZXBhcmF0ZV9yb3dzKEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkLCBzZXAgPSAiL1xccysiKSAlPiUgDQogIG11dGF0ZShzb2Z0d2FyZV9hbmFseXNpcyA9IGlmZWxzZShncmVwbCgiY29tcHJlaGVuc2l2ZSBtZXRhLWFuYWx5c2lzIiwgc29mdHdhcmVfYW5hbHlzaXMpLCAiQ01BUyIsIHNvZnR3YXJlX2FuYWx5c2lzKSkgJT4lDQogIG11dGF0ZShzb2Z0d2FyZV9hbmFseXNpcyA9IGlmZWxzZShncmVwbCgibm90IHJlcG9ydGVkIiwgc29mdHdhcmVfYW5hbHlzaXMpLCAibm8gc29mdHdhcmUgcmVwb3J0ZWQiLCBzb2Z0d2FyZV9hbmFseXNpcykpICAlPiUgDQogICAgZmlsdGVyKCFpcy5uYShzb2Z0d2FyZV9hbmFseXNpcykpICU+JQ0KICAgIGdyb3VwX2J5KEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkLCBzb2Z0d2FyZV9hbmFseXNpcykgJT4lIA0KICAgIGNvdW50KHNvZnR3YXJlX2FuYWx5c2lzLCBKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCkgJT4lIA0KICAgIHN1bW1hcmlzZShmcmVxID0gbigpLCAuZ3JvdXBzID0gJ2Ryb3AnKSAlPiUgDQogICAgZ3JvdXBfYnkoc29mdHdhcmVfYW5hbHlzaXMpDQoNCiMgQ3JlYXRlIHRoZSBBbGx1dmlhbCBwbG90IGZvciBTb2Z0d2FyZSBBbmFseXNpcw0KZmlnczE1IDwtIHNvZnR3YXJlX2FuYWx5c2lzX2FsbHV2aWFsICU+JSANCiAgZ2dwbG90KGFlcyh5ID0gZnJlcSAsYXhpczEgPSBKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCwgYXhpczIgPSBzb2Z0d2FyZV9hbmFseXNpcykpICsNCiAgc2NhbGVfeF9kaXNjcmV0ZShsaW1pdHMgPSBjKCJKb3VybmFsIENpdGF0aW9uIENhdGVnb3J5IiwgIlNvZnR3YXJlIEFuYWx5c2lzIiksIGV4cGFuZCA9IGMoLjA1LCAuMDUpKSArDQogIHhsYWIoIlZhcmlhYmxlcyIpICsNCiAgZ2VvbV9hbGx1dml1bShhZXMoZmlsbCA9IEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkKSkgKw0KICBnZW9tX3N0cmF0dW0od2lkdGggPSAxLzQsIGZpbGwgPSAid2hpdGUiLCBjb2xvciA9ICJibGFjayIpICsNCiAgZ2VvbV90ZXh0KHN0YXQgPSAic3RyYXR1bSIsIGFlcyhsYWJlbCA9IGFmdGVyX3N0YXQoc3RyYXR1bSkpLCBzaXplID0gNikgKw0KICBsYWJzKHg9ICJWYXJpYWJsZXMiLCB5ID0gIkZyZXF1ZW5jeSIsIGZpbGwgPSAiSm91cm5hbCBDYXRlZ29yeSBBbGxvY2F0ZWQiKSArDQogIHNjYWxlX2ZpbGxfYnJld2VyKHBhbGV0dGUgPSAiRGFyazIiKSArDQogIG9yZ2Fub2NobG9yVEhFTUUoKSANCg0KZmlnczE1DQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczE1LnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczE1LmpwZyIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCmBgYA0KDQojIyBGaWd1cmUgczE2IA0KQmFyIHBsb3Qgc2hvd2luZyB0aGUgcGVyY2VudGFnZSBhbmQgdG90YWwgY291bnQgb2YgZWZmZWN0IHNpemUgY2FsY3VsYXRpb24gdHlwZXMgdXNlZCBpbiBtZXRhLWFuYWx5c2VzIGludmVzdGlnYXRpbmcgdGhlIGltcGFjdHMgb2Ygb3JnYW5vY2hsb3JpbmUgcGVzdGljaWRlcy4gTm90ZSB0aGF0IHNvbWUgbWV0YS1hbmFseXNlcyBtYXkgY29udHJpYnV0ZSB0byBtdWx0aXBsZSBzZWN0aW9ucyBpZiB0aGUgc3R1ZHkgaW52b2x2ZWQgbXVsdGlwbGUgZWZmZWN0IHNpemUgY2FsY3VsYXRpb25zLiBUaGUgIk90aGVyIGVmZmVjdCBzaXplcyIgY2F0ZWdvcnkgaW5jbHVkZXMgYWxsIGVmZmVjdCBzaXplcyB3aXRoIGEgY291bnQgb2YgMiBvciBsZXNzLiBQZXJjZW50YWdlIGlzIHNob3dpbmcgdGhlIHByb3BvcnRpb24gb2Ygc3R1ZGllcy4NCmBgYHtyLCBmaWcud2lkdGg9MTYsIGZpZy5oZWlnaHQ9MTB9DQojIENhbGN1bGF0ZSB0aGUgdG90YWwgY291bnQgZm9yIGVhY2ggY2F0ZWdvcnkNCmVmZmVjdHNpemVfY291bnQgPC0gc2QgJT4lIA0KICBzZXBhcmF0ZV9yb3dzKGVmZmVjdF9zaXplLCBzZXAgPSAiLFxccysiKSAlPiUgDQogIGNvdW50KGVmZmVjdF9zaXplKSAlPiUNCiAgZmlsdGVyKGVmZmVjdF9zaXplICE9ICJOQSIpICU+JQ0KICBtdXRhdGUoZWZmZWN0X3NpemUgPSBpZmVsc2Uobjw9IDIsICJPdGhlciBlZmZlY3Qgc2l6ZSIsIGFzLmNoYXJhY3RlcihlZmZlY3Rfc2l6ZSkpKSAlPiUgDQogIGdyb3VwX2J5KGVmZmVjdF9zaXplKSAlPiUNCiAgc3VtbWFyaXNlKG4gPSBzdW0obikpDQoNCiMgQ2FsY3VsYXRlIHByb3BvcnRpb24gYW5kIHBlcmNlbnRhZ2UgZm9yIGVhY2ggY2F0ZWdvcnkNCmVmZmVjdHNpemVfcGN0IDwtIGVmZmVjdHNpemVfY291bnQgJT4lDQogIG11dGF0ZShwcm9wb3J0aW9uID0gbiAvIDgzLA0KICAgICAgICAgcGVyY2VudGFnZSA9IHByb3BvcnRpb24gKiAxMDApDQoNCiMgQ3JlYXRlIHRoZSBjb3VudCBwbG90DQpmaWdzMTYgPC0gIGVmZmVjdHNpemVfY291bnQgJT4lDQogIGdncGxvdChhZXMoeCA9IG4sIHkgPSByZW9yZGVyKGVmZmVjdF9zaXplLCBuKSwgZmlsbCA9ICIjMWI5ZTc3IikpICsNCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIHdpZHRoID0gMC44ICwgYWxwaGEgPSAwLjcpICsNCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IG4sIHggPSBuIC8gMiwgeSA9IHJlb3JkZXIoZWZmZWN0X3NpemUsIG4pKSwgaGp1c3QgPSAwLjUsIHNpemUgPSAxMiwgY29sb3IgPSAiYmxhY2siKSArDQogIGdlb21fdGV4dChkYXRhID0gZWZmZWN0c2l6ZV9wY3QsIGFlcyhsYWJlbCA9IHBhc3RlMCgiKCIsIHJvdW5kKHBlcmNlbnRhZ2UsIDEpLCAiJSkiKSwgeCA9IG4pLCANCiAgICAgICAgICAgIGhqdXN0ID0gLTAuMSwgc2l6ZSA9IDEyLCBjb2xvciA9ICJibGFjayIsIGZvbnRmYWNlID0gImJvbGQiKSArDQogIHNjYWxlX2ZpbGxfaWRlbnRpdHkoZ3VpZGUgPSAibm9uZSIpICsNCiAgc2NhbGVfeF9jb250aW51b3VzKGV4cGFuZCA9IGMoMCwgMCksIGxpbWl0cyA9IGMoMCwgbWF4KGVmZmVjdHNpemVfY291bnQkbikqMS4zKSkgKw0KICBsYWJzKHRpdGxlID0gTlVMTCwgeCA9IE5VTEwsIHkgPSBOVUxMKSArDQogIG9yZ2Fub2NobG9yVEhFTUUoKSANCg0KZmlnczE2DQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczE2LnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczE2LmpwZyIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCmBgYA0KDQojIyBGaWd1cmUgczE3DQpBbGx1dmlhbCBwbG90IHNob3dpbmcgdGhlIHJlbGF0aW9uc2hpcCBiZXR3ZWVuIHRoZSBKb3VybmFsIENpdGF0aW9uIFJlcG9ydCBDYXRlZ29yeSBhbmQgdGhlIGVmZmVjdCBzaXplIHVzZWQuIEZpbHRlcmVkIGZvciBzY2llbnRpZmljIGxpdGVyYXR1cmUgZGF0YWJhc2UgY291bnRzIGdyZWF0ZXIgdGhhbiBvciBlcXVhbCB0byAzLg0KYGBge3IsIGZpZy53aWR0aD0xNiwgZmlnLmhlaWdodD0xMH0NCiMgRGF0YSBUcmFuc2Zvcm1hdGlvbiANCmVmZmVjdHNpemVfYWxsdXZpYWwgPC0gc2QgJT4lIA0KICAgIHNlcGFyYXRlX3Jvd3MoZWZmZWN0X3NpemUsIHNlcCA9ICIsXFxzKyIpICU+JQ0KICAgIHNlcGFyYXRlX3Jvd3MoSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQsIHNlcCA9ICIvXFxzKyIpICU+JSANCiAgICBmaWx0ZXIoIWdyZXBsKCJubyBjYXRlZ29yeSBmb3VuZCIsIEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkLCBpZ25vcmUuY2FzZSA9IFRSVUUpKSAlPiUgDQogICAgZmlsdGVyKCFpcy5uYShlZmZlY3Rfc2l6ZSkpICU+JQ0KICAgIGdyb3VwX2J5KEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkLCBlZmZlY3Rfc2l6ZSkgJT4lIA0KICAgIGNvdW50KGVmZmVjdF9zaXplLCBKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCkgJT4lIA0KICAgIHN1bW1hcmlzZShmcmVxID0gbigpLCAuZ3JvdXBzID0gJ2Ryb3AnKSAlPiUgDQogICAgZ3JvdXBfYnkoZWZmZWN0X3NpemUpIA0KDQoNCiMgQ3JlYXRlIHRoZSBBbGx1dmlhbCBwbG90DQpmaWdzMTcgPC0gZWZmZWN0c2l6ZV9hbGx1dmlhbCAlPiUgDQpnZ3Bsb3QoYWVzKHkgPSBmcmVxICxheGlzMSA9IEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkLCBheGlzMiA9IGVmZmVjdF9zaXplKSkgKw0KICBzY2FsZV94X2Rpc2NyZXRlKGxpbWl0cyA9IGMoIkpvdXJuYWwgQ2l0YXRpb24gQ2F0ZWdvcnkiLCAiRWZmZWN0IFNpemUiKSwgZXhwYW5kID0gYyguMDUsIC4wNSkpICsNCiAgeGxhYigiVmFyaWFibGVzIikgKw0KICBnZW9tX2FsbHV2aXVtKGFlcyhmaWxsID0gSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQpKSArDQogIGdlb21fc3RyYXR1bSh3aWR0aCA9IDEvMi41LCBmaWxsID0gIndoaXRlIiwgY29sb3IgPSAiYmxhY2siKSArDQogIGdlb21fdGV4dChzdGF0ID0gInN0cmF0dW0iLCBhZXMobGFiZWwgPSBhZnRlcl9zdGF0KHN0cmF0dW0pKSwgc2l6ZSA9IDUpICsNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgbGFicyh4PSAiVmFyaWFibGVzIiwgeSA9ICJGcmVxdWVuY3kiLCBmaWxsID0gIkpvdXJuYWwgQ2F0ZWdvcnkgQWxsb2NhdGVkIikgKw0KICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIkRhcmsyIikgKw0KICBvcmdhbm9jaGxvclRIRU1FKCkgDQogIA0KZmlnczE3DQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczE3LnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczE3LmpwZyIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCmBgYA0KDQojIyBGaWd1cmUgczE4DQpCYXIgcGxvdCBzaG93aW5nIHRoZSBwZXJjZW50YWdlIGFuZCB0b3RhbCBjb3VudCBvZiB2aXN1YWxpemF0aW9uIG1ldGhvZHMgdXNlZCBpbiBtZXRhLWFuYWx5c2VzIGludmVzdGlnYXRpbmcgdGhlIGltcGFjdHMgb2Ygb3JnYW5vY2hsb3JpbmUgcGVzdGljaWRlcy4gTm90ZSB0aGF0IHNvbWUgbWV0YS1hbmFseXNlcyBtYXkgY29udHJpYnV0ZSB0byBtdWx0aXBsZSBzZWN0aW9ucyBpZiB0aGUgc3R1ZHkgaW52b2x2ZWQgdGhlIHVzZSBvZiBtdWx0aXBsZSB2aXN1YWxpemF0aW9uIG1ldGhvZHMuDQpgYGB7ciwgZmlnLndpZHRoPTE2LCBmaWcuaGVpZ2h0PTEwfQ0KIyBDYWxjdWxhdGUgdGhlIHRvdGFsIGNvdW50IGZvciBlYWNoIGNhdGVnb3J5DQp2aXN1YWxpemF0aW9uX2NvdW50IDwtIHNkICU+JSANCiAgc2VwYXJhdGVfcm93cyh2aXN1YWxpemF0aW9uX21ldGhvZCwgc2VwID0gIixcXHMrIikgJT4lIA0KICBjb3VudCh2aXN1YWxpemF0aW9uX21ldGhvZCkgJT4lDQogIGZpbHRlcih2aXN1YWxpemF0aW9uX21ldGhvZCAhPSAiTkEiKSAlPiUNCiAgICBncm91cF9ieSh2aXN1YWxpemF0aW9uX21ldGhvZCkgJT4lDQogIHN1bW1hcmlzZShuID0gc3VtKG4pKQ0KDQojIENhbGN1bGF0ZSBwcm9wb3J0aW9uIGFuZCBwZXJjZW50YWdlIGZvciBlYWNoIGNhdGVnb3J5DQp2aXN1YWxpemF0aW9uX3BjdCA8LSB2aXN1YWxpemF0aW9uX2NvdW50ICU+JQ0KICBtdXRhdGUocHJvcG9ydGlvbiA9IG4gLyA4MywNCiAgICAgICAgIHBlcmNlbnRhZ2UgPSBwcm9wb3J0aW9uICogMTAwKQ0KDQojIENyZWF0ZSB0aGUgY291bnQgcGxvdA0KZmlnczE4IDwtIHZpc3VhbGl6YXRpb25fY291bnQgJT4lDQogIGdncGxvdChhZXMoeCA9IG4sIHkgPSByZW9yZGVyKHZpc3VhbGl6YXRpb25fbWV0aG9kLCBuKSwgZmlsbCA9IGlmZWxzZShncmVwbCgiTm90IHJlcG9ydGVkIiwgdmlzdWFsaXphdGlvbl9tZXRob2QpLCAiIzczNzBiMyIsICIjMWI5ZTc3IikpKSArDQogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCB3aWR0aCA9IDAuOCAsIGFscGhhID0gMC43KSArDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBuLCB4ID0gbiAvIDIsIHkgPSByZW9yZGVyKHZpc3VhbGl6YXRpb25fbWV0aG9kLCBuKSksIGhqdXN0ID0gMC41LCBzaXplID0gMTIsIGNvbG9yID0gImJsYWNrIikgKw0KICBnZW9tX3RleHQoZGF0YSA9IHZpc3VhbGl6YXRpb25fcGN0LCBhZXMobGFiZWwgPSBwYXN0ZTAoIigiLCByb3VuZChwZXJjZW50YWdlLCAwKSwgIiUpIiksIHggPSBuKSwgDQogICAgICAgICAgICBoanVzdCA9IC0wLjEsIHNpemUgPSAxMiwgY29sb3IgPSAiYmxhY2siLCBmb250ZmFjZSA9ICJib2xkIikgKw0KICBzY2FsZV9maWxsX2lkZW50aXR5KGd1aWRlID0gIm5vbmUiKSArDQogIHNjYWxlX3hfY29udGludW91cyhleHBhbmQgPSBjKDAsIDApLCBsaW1pdHMgPSBjKDAsIG1heCh2aXN1YWxpemF0aW9uX2NvdW50JG4pKjEuMykpICsNCiAgbGFicyh0aXRsZSA9IE5VTEwsIHggPSBOVUxMLCB5ID0gTlVMTCkgKw0KICBvcmdhbm9jaGxvclRIRU1FKCkgDQoNCmZpZ3MxOA0KDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZ3MxOC5wZGYiKSwgd2lkdGggPSAxNiwgaGVpZ2h0ID0gMTAsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZ3MxOC5qcGciKSwgd2lkdGggPSAxNiwgaGVpZ2h0ID0gMTAsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQpgYGANCg0KIyMgRmlndXJlIHMxOQ0KQWxsdXZpYWwgcGxvdCBzaG93aW5nIHRoZSByZWxhdGlvbnNoaXAgYmV0d2VlbiB0aGUgSm91cm5hbCBDaXRhdGlvbiBSZXBvcnQgQ2F0ZWdvcnkgYW5kIHZpc3VhbGl6YXRpb24gbWV0aG9kLiANCmBgYHtyLCBmaWcud2lkdGg9MTYsIGZpZy5oZWlnaHQ9MTB9DQojIERhdGEgVHJhbnNmb3JtYXRpb24gDQp2aXN1YWxpemF0aW9uX2FsbHV2aWFsIDwtIHNkICU+JSANCiAgICBzZXBhcmF0ZV9yb3dzKHZpc3VhbGl6YXRpb25fbWV0aG9kLCBzZXAgPSAiLFxccysiKSAlPiUNCiAgICBmaWx0ZXIoIWlzLm5hKHZpc3VhbGl6YXRpb25fbWV0aG9kKSkgJT4lDQogICAgc2VwYXJhdGVfcm93cyhKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCwgc2VwID0gIi9cXHMrIikgJT4lDQogICAgZ3JvdXBfYnkoSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQsIHZpc3VhbGl6YXRpb25fbWV0aG9kKSAlPiUgDQogICAgY291bnQodmlzdWFsaXphdGlvbl9tZXRob2QsIEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkKSAlPiUgDQogICAgc3VtbWFyaXNlKGZyZXEgPSBuKCksIC5ncm91cHMgPSAnZHJvcCcpICU+JSANCiAgICBncm91cF9ieSh2aXN1YWxpemF0aW9uX21ldGhvZCkgDQoNCg0KIyBDcmVhdGUgdGhlIEFsbHV2aWFsIHBsb3QNCmZpZ3MxOSA8LSB2aXN1YWxpemF0aW9uX2FsbHV2aWFsICU+JSANCmdncGxvdChhZXMoeSA9IGZyZXEgLGF4aXMxID0gSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQsIGF4aXMyID0gdmlzdWFsaXphdGlvbl9tZXRob2QpKSArDQogIHNjYWxlX3hfZGlzY3JldGUobGltaXRzID0gYygiSm91cm5hbCBDaXRhdGlvbiBSZXBvcnQgQ2F0ZWdvcnkiLCAiUk9CIEFzc2Vzc21lbnQgTWV0aG9kIiksIGV4cGFuZCA9IGMoLjA1LCAuMDUpKSArDQogIHhsYWIoIlZhcmlhYmxlcyIpICsNCiAgZ2VvbV9hbGx1dml1bShhZXMoZmlsbCA9IEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkKSkgKw0KICBnZW9tX3N0cmF0dW0od2lkdGggPSAxLzQsIGZpbGwgPSAid2hpdGUiLCBjb2xvciA9ICJibGFjayIpICsNCiAgZ2VvbV90ZXh0KHN0YXQgPSAic3RyYXR1bSIsIGFlcyhsYWJlbCA9IGFmdGVyX3N0YXQoc3RyYXR1bSkpLCBzaXplID0gNikgKw0KICBsYWJzKHg9ICJWYXJpYWJsZXMiLCB5ID0gIkZyZXF1ZW5jeSIsIGZpbGwgPSAiSm91cm5hbCBDYXRlZ29yeSBBbGxvY2F0ZWQiKSArDQogIHNjYWxlX2ZpbGxfYnJld2VyKHBhbGV0dGUgPSAiRGFyazIiKSArDQogIG9yZ2Fub2NobG9yVEhFTUUoKSANCg0KZmlnczE5DQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczE5LnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczE5LmpwZyIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCmBgYA0KDQojIyBGaWd1cmUgczIwDQpCYXIgcGxvdCBzaG93aW5nIHRoZSBwZXJjZW50YWdlIGFuZCB0b3RhbCBjb3VudCBvZiByaXNrIG9mIGJpYXMgdGVzdHMgdXNlZCBpbiBtZXRhLWFuYWx5c2VzIGludmVzdGlnYXRpbmcgdGhlIGltcGFjdHMgb2Ygb3JnYW5vY2hsb3JpbmUgcGVzdGljaWRlcy4gTm90ZSB0aGF0IHNvbWUgbWV0YS1hbmFseXNlcyBtYXkgY29udHJpYnV0ZSB0byBtdWx0aXBsZSBzZWN0aW9ucyBpZiB0aGUgc3R1ZHkgaW52b2x2ZWQgdGhlIHVzZSBvZiBtdWx0aXBsZSByaXNrIG9mIGJpYXMgdGVzdHMuIA0KYGBge3IsIGZpZy53aWR0aD0xNiwgZmlnLmhlaWdodD0xMH0NCiMgQ2FsY3VsYXRlIHRoZSB0b3RhbCBjb3VudCBmb3IgZWFjaCBjYXRlZ29yeQ0Kcm9iX21ldGhvZF9jb3VudCA8LSBzZCAlPiUgDQogIHNlcGFyYXRlX3Jvd3Mocm9iX2Fzc2Vzc21lbnRfbWV0aG9kLCBzZXAgPSAiLFxccysiKSAlPiUgDQogIGNvdW50KHJvYl9hc3Nlc3NtZW50X21ldGhvZCkgJT4lDQogIGZpbHRlcihyb2JfYXNzZXNzbWVudF9tZXRob2QgIT0gIk5BIikgJT4lDQogIG11dGF0ZShyb2JfYXNzZXNzbWVudF9tZXRob2QgPSBpZmVsc2Uobjw9IDIsICJPdGhlciBST0IgdG9vbCIsIGFzLmNoYXJhY3Rlcihyb2JfYXNzZXNzbWVudF9tZXRob2QpKSkgJT4lIA0KICBtdXRhdGUocm9iX2Fzc2Vzc21lbnRfbWV0aG9kID0gaWZlbHNlKGdyZXBsKCJOZXdjYXN0bGUgT3R0YXdhIHNjYWxlIiwgcm9iX2Fzc2Vzc21lbnRfbWV0aG9kKSwgIk5ld2Nhc3RsZSBPdHRhd2FcbnNjYWxlIiwgcm9iX2Fzc2Vzc21lbnRfbWV0aG9kKSkgJT4lDQogIGdyb3VwX2J5KHJvYl9hc3Nlc3NtZW50X21ldGhvZCkgJT4lDQogIHN1bW1hcmlzZShuID0gc3VtKG4pKQ0KDQojIENhbGN1bGF0ZSBwcm9wb3J0aW9uIGFuZCBwZXJjZW50YWdlIGZvciBlYWNoIGNhdGVnb3J5DQpyb2JfbWV0aG9kX3BjdCA8LSByb2JfbWV0aG9kX2NvdW50ICU+JQ0KICBtdXRhdGUocHJvcG9ydGlvbiA9IG4gLyA4MywNCiAgICAgICAgIHBlcmNlbnRhZ2UgPSBwcm9wb3J0aW9uICogMTAwKQ0KDQojIENyZWF0ZSB0aGUgY291bnQgcGxvdA0KZmlnczIwIDwtIHJvYl9tZXRob2RfY291bnQgJT4lDQogIGdncGxvdChhZXMoeCA9IG4sIHkgPSByZW9yZGVyKHJvYl9hc3Nlc3NtZW50X21ldGhvZCwgbiksIGZpbGwgPSBpZmVsc2UoZ3JlcGwoIk5vdCByZXBvcnRlZCIsIHJvYl9hc3Nlc3NtZW50X21ldGhvZCksICIjNzM3MGIzIiwgIiMxYjllNzciKSkpICsNCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIHdpZHRoID0gMC44ICwgYWxwaGEgPSAwLjcpICsNCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IG4sIHggPSBuIC8gMiwgeSA9IHJlb3JkZXIocm9iX2Fzc2Vzc21lbnRfbWV0aG9kLCBuKSksIGhqdXN0ID0gMC41LCBzaXplID0gMTIsIGNvbG9yID0gImJsYWNrIikgKw0KICBnZW9tX3RleHQoZGF0YSA9IHJvYl9tZXRob2RfcGN0LCBhZXMobGFiZWwgPSBwYXN0ZTAoIigiLCByb3VuZChwZXJjZW50YWdlLCAwKSwgIiUpIiksIHggPSBuKSwgDQogICAgICAgICAgICBoanVzdCA9IC0wLjEsIHNpemUgPSAxMiwgY29sb3IgPSAiYmxhY2siLCBmb250ZmFjZSA9ICJib2xkIikgKw0KICBzY2FsZV9maWxsX2lkZW50aXR5KGd1aWRlID0gIm5vbmUiKSArDQogIHNjYWxlX3hfY29udGludW91cyhleHBhbmQgPSBjKDAsIDApLCBsaW1pdHMgPSBjKDAsIG1heChyb2JfbWV0aG9kX2NvdW50JG4pKjEuMykpICsNCiAgbGFicyh0aXRsZSA9IE5VTEwsIHggPSBOVUxMLCB5ID0gTlVMTCkgKw0KICBvcmdhbm9jaGxvclRIRU1FKCkgDQoNCmZpZ3MyMA0KDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZ3MyMC5wZGYiKSwgd2lkdGggPSAxNiwgaGVpZ2h0ID0gMTAsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQojIGdnc2F2ZShoZXJlKCJmaWd1cmVzIiwgImZpZ3MyMC5qcGciKSwgd2lkdGggPSAxNiwgaGVpZ2h0ID0gMTAsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQpgYGANCg0KIyMgRmlndXJlIHMyMQ0KQWxsdXZpYWwgcGxvdCBzaG93aW5nIHRoZSByZWxhdGlvbnNoaXAgYmV0d2VlbiB0aGUgSm91cm5hbCBDaXRhdGlvbiBSZXBvcnQgQ2F0ZWdvcnkgYW5kIHJpc2sgb2YgYmlhcyBtZXRob2RvbG9neS4gDQpgYGB7ciwgZmlnLndpZHRoPTE2LCBmaWcuaGVpZ2h0PTEwfQ0KIyBEYXRhIFRyYW5zZm9ybWF0aW9uIA0Kcm9ibWV0aG9kX2FsbHV2aWFsIDwtIHNkICU+JSANCiAgICAgc2VwYXJhdGVfcm93cyhyb2JfYXNzZXNzbWVudF9tZXRob2QsIHNlcCA9ICIsXFxzKyIpICU+JQ0KICAgIGZpbHRlcighaXMubmEocm9iX2Fzc2Vzc21lbnRfbWV0aG9kKSkgJT4lDQogICAgc2VwYXJhdGVfcm93cyhKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCwgc2VwID0gIi9cXHMrIikgJT4lDQogICAgZ3JvdXBfYnkoSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQsIHJvYl9hc3Nlc3NtZW50X21ldGhvZCkgJT4lIA0KICAgIGNvdW50KHJvYl9hc3Nlc3NtZW50X21ldGhvZCwgSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQpICU+JSANCiAgICBzdW1tYXJpc2UoZnJlcSA9IG4oKSwgLmdyb3VwcyA9ICdkcm9wJykgJT4lIA0KICAgIGdyb3VwX2J5KHJvYl9hc3Nlc3NtZW50X21ldGhvZCkgDQoNCg0KIyBDcmVhdGUgdGhlIEFsbHV2aWFsIHBsb3QNCmZpZ3MyMSA8LSByb2JtZXRob2RfYWxsdXZpYWwgJT4lIA0KZ2dwbG90KGFlcyh5ID0gZnJlcSAsYXhpczEgPSBKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCwgYXhpczIgPSByb2JfYXNzZXNzbWVudF9tZXRob2QpKSArDQogIHNjYWxlX3hfZGlzY3JldGUobGltaXRzID0gYygiSm91cm5hbCBDaXRhdGlvbiBDYXRlZ29yeSIsICJST0IgQXNzZXNzbWVudCBNZXRob2QiKSwgZXhwYW5kID0gYyguMDUsIC4wNSkpICsNCiAgeGxhYigiVmFyaWFibGVzIikgKw0KICBnZW9tX2FsbHV2aXVtKGFlcyhmaWxsID0gSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQpKSArDQogIGdlb21fc3RyYXR1bSh3aWR0aCA9IDEvMywgZmlsbCA9ICJ3aGl0ZSIsIGNvbG9yID0gImJsYWNrIikgKw0KICBnZW9tX3RleHQoc3RhdCA9ICJzdHJhdHVtIiwgYWVzKGxhYmVsID0gYWZ0ZXJfc3RhdChzdHJhdHVtKSksIHNpemUgPSA1KSArDQogIGxhYnMoeD0gIlZhcmlhYmxlcyIsIHkgPSAiRnJlcXVlbmN5IiwgZmlsbCA9ICJKb3VybmFsIENhdGVnb3J5IEFsbG9jYXRlZCIpICsNCiAgc2NhbGVfZmlsbF9icmV3ZXIocGFsZXR0ZSA9ICJEYXJrMiIpICsNCiAgb3JnYW5vY2hsb3JUSEVNRSgpIA0KDQpmaWdzMjENCg0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzMjEucGRmIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzMjEuanBnIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KYGBgDQoNCg0KIyMgRmlndXJlIHMyMg0KQmFyIHBsb3Qgc2hvd2luZyB0aGUgcGVyY2VudGFnZSBhbmQgdG90YWwgY291bnQgb2YgYmlhcyB2aXN1YWxpemF0aW9ucyB1c2VkIGluIG1ldGEtYW5hbHlzZXMgaW52ZXN0aWdhdGluZyB0aGUgaW1wYWN0cyBvZiBvcmdhbm9jaGxvcmluZSBwZXN0aWNpZGVzLiBOb3RlIHRoYXQgc29tZSBtZXRhLWFuYWx5c2VzIG1heSBjb250cmlidXRlIHRvIG11bHRpcGxlIHNlY3Rpb25zIGlmIHRoZSBzdHVkeSBpbnZvbHZlZCB0aGUgdXNlIG9mIG11bHRpcGxlIGJpYXMgdmlzdWFsaXphdGlvbnMuIA0KYGBge3IsIGZpZy53aWR0aD0xNiwgZmlnLmhlaWdodD0xMH0NCiMgQ2FsY3VsYXRlIHRoZSB0b3RhbCBjb3VudCBmb3IgZWFjaCBjYXRlZ29yeQ0KYmlhc192aXN1YWxpemF0aW9uX2NvdW50IDwtIHNkICU+JSANCiAgc2VwYXJhdGVfcm93cyhiaWFzX2Fzc2Vzc21lbnRfdmlzdWFsaXphdGlvbiwgc2VwID0gIixcXHMrIikgJT4lIA0KICBjb3VudChiaWFzX2Fzc2Vzc21lbnRfdmlzdWFsaXphdGlvbikgJT4lDQogIGZpbHRlcihiaWFzX2Fzc2Vzc21lbnRfdmlzdWFsaXphdGlvbiAhPSAiTkEiKSAlPiUNCiAgICBncm91cF9ieShiaWFzX2Fzc2Vzc21lbnRfdmlzdWFsaXphdGlvbikgJT4lDQogIHN1bW1hcmlzZShuID0gc3VtKG4pKQ0KDQojIENhbGN1bGF0ZSBwcm9wb3J0aW9uIGFuZCBwZXJjZW50YWdlIGZvciBlYWNoIGNhdGVnb3J5DQpiaWFzX3Zpc3VhbGl6YXRpb25fcGN0IDwtIGJpYXNfdmlzdWFsaXphdGlvbl9jb3VudCAlPiUNCiAgbXV0YXRlKHByb3BvcnRpb24gPSBuIC8gODMsDQogICAgICAgICBwZXJjZW50YWdlID0gcHJvcG9ydGlvbiAqIDEwMCkNCg0KIyBDcmVhdGUgdGhlIGNvdW50IHBsb3QNCmZpZ3MyMiA8LSBiaWFzX3Zpc3VhbGl6YXRpb25fY291bnQgJT4lDQogIGdncGxvdChhZXMoeCA9IG4sIHkgPSByZW9yZGVyKGJpYXNfYXNzZXNzbWVudF92aXN1YWxpemF0aW9uLCBuKSwgZmlsbCA9IGlmZWxzZShncmVwbCgiTm90IHJlcG9ydGVkIiwgYmlhc19hc3Nlc3NtZW50X3Zpc3VhbGl6YXRpb24pLCAiIzczNzBiMyIsICIjMWI5ZTc3IikpKSArDQogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCB3aWR0aCA9IDAuOCAsIGFscGhhID0gMC43KSArDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBuLCB4ID0gbiAvIDIsIHkgPSByZW9yZGVyKGJpYXNfYXNzZXNzbWVudF92aXN1YWxpemF0aW9uLCBuKSksIGhqdXN0ID0gMC41LCBzaXplID0gMTIsIGNvbG9yID0gImJsYWNrIikgKw0KICBnZW9tX3RleHQoZGF0YSA9IGJpYXNfdmlzdWFsaXphdGlvbl9wY3QsIGFlcyhsYWJlbCA9IHBhc3RlMCgiKCIsIHJvdW5kKHBlcmNlbnRhZ2UsIDEpLCAiJSkiKSwgeCA9IG4pLCANCiAgICAgICAgICAgIGhqdXN0ID0gLTAuMSwgc2l6ZSA9IDEyLCBjb2xvciA9ICJibGFjayIsIGZvbnRmYWNlID0gImJvbGQiKSArDQogIHNjYWxlX2ZpbGxfaWRlbnRpdHkoZ3VpZGUgPSAibm9uZSIpICsNCiAgc2NhbGVfeF9jb250aW51b3VzKGV4cGFuZCA9IGMoMCwgMCksIGxpbWl0cyA9IGMoMCwgbWF4KGJpYXNfdmlzdWFsaXphdGlvbl9jb3VudCRuKSoxLjMpKSArDQogIGxhYnModGl0bGUgPSBOVUxMLCB4ID0gTlVMTCwgeSA9IE5VTEwpICsNCiAgb3JnYW5vY2hsb3JUSEVNRSgpIA0KDQpmaWdzMjINCg0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzMjIucGRmIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzMjIuanBnIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KYGBgDQoNCiMjIEZpZ3VyZSBzMjMNCkFsbHV2aWFsIHBsb3Qgc2hvd2luZyB0aGUgcmVsYXRpb25zaGlwIGJldHdlZW4gdGhlIEpvdXJuYWwgQ2l0YXRpb24gUmVwb3J0IENhdGVnb3J5IGFuZCBiaWFzIHZpc3VhbGl6YXRpb24gbWV0aG9kLg0KYGBge3IsIGZpZy53aWR0aD0xNiwgZmlnLmhlaWdodD0xMH0NCiMgRGF0YSBUcmFuc2Zvcm1hdGlvbiANCmJpYXNfdml6dWFsaXNhdGlvbl9hbGx1dmlhbCA8LSBzZCAlPiUgDQogICAgc2VwYXJhdGVfcm93cyhiaWFzX2Fzc2Vzc21lbnRfdmlzdWFsaXphdGlvbiwgc2VwID0gIixcXHMrIikgJT4lDQogICAgc2VwYXJhdGVfcm93cyhKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCwgc2VwID0gIi9cXHMrIikgJT4lIA0KICAgIGZpbHRlcighaXMubmEoYmlhc19hc3Nlc3NtZW50X3Zpc3VhbGl6YXRpb24pKSAlPiUNCiAgICBncm91cF9ieShKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCwgYmlhc19hc3Nlc3NtZW50X3Zpc3VhbGl6YXRpb24pICU+JSANCiAgICBjb3VudChiaWFzX2Fzc2Vzc21lbnRfdmlzdWFsaXphdGlvbiwgSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQpICU+JSANCiAgICBzdW1tYXJpc2UoZnJlcSA9IG4oKSwgLmdyb3VwcyA9ICdkcm9wJykgJT4lIA0KICAgIGdyb3VwX2J5KGJpYXNfYXNzZXNzbWVudF92aXN1YWxpemF0aW9uKQ0KDQojIENyZWF0ZSB0aGUgQWxsdXZpYWwgcGxvdA0KZmlnczIzIDwtIGJpYXNfdml6dWFsaXNhdGlvbl9hbGx1dmlhbCAlPiUgDQogIGdncGxvdChhZXMoeSA9IGZyZXEgLGF4aXMxID0gSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQsIGF4aXMyID0gYmlhc19hc3Nlc3NtZW50X3Zpc3VhbGl6YXRpb24pKSArDQogIHNjYWxlX3hfZGlzY3JldGUobGltaXRzID0gYygiSm91cm5hbCBDaXRhdGlvbiBDYXRlZ29yeSIsICJCaWFzIFZpenVhbGl6YXRpb24iKSwgZXhwYW5kID0gYyguMDUsIC4wNSkpICsNCiAgeGxhYigiVmFyaWFibGVzIikgKw0KICBnZW9tX2FsbHV2aXVtKGFlcyhmaWxsID0gSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQpKSArDQogIGdlb21fc3RyYXR1bSh3aWR0aCA9IDEvNCwgZmlsbCA9ICJ3aGl0ZSIsIGNvbG9yID0gImJsYWNrIikgKw0KICBnZW9tX3RleHQoc3RhdCA9ICJzdHJhdHVtIiwgYWVzKGxhYmVsID0gYWZ0ZXJfc3RhdChzdHJhdHVtKSksIHNpemUgPSA2KSArDQogIGxhYnMoeD0gIlZhcmlhYmxlcyIsIHkgPSAiRnJlcXVlbmN5IiwgZmlsbCA9ICJKb3VybmFsIENhdGVnb3J5IEFsbG9jYXRlZCIpICsNCiAgc2NhbGVfZmlsbF9icmV3ZXIocGFsZXR0ZSA9ICJEYXJrMiIpICsNCiAgb3JnYW5vY2hsb3JUSEVNRSgpIA0KDQpmaWdzMjMNCg0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzMjMucGRmIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzMjMuanBnIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KDQpgYGANCg0KDQojIyBGaWd1cmUgczI0DQpBIGNpcmN1bGFyIHRyZWVtYXAgc2hvd2luZyB0aGUgY291bnRzIG9mIGVhY2ggbWV0aG9kb2xvZ2ljYWwgaXRlbSBpbiBleGlzdGluZyBtZXRhLWFuYWx5c2lzIGludmVzdGlnYXRpbmcgdGhlIGltcGFjdHMgb2Ygb3JnYW5vY2hsb3JpbmUgcGVzdGljaWRlcw0KYGBge3IsIGZpZy53aWR0aD0yMSwgZmlnLmhlaWdodD0xNX0NCiMgR3JvdXBpbmcgIk1lZGxpbmUiIGFuZCAiUHVibWVkIiB1bmRlciAiUHViTWVkIiBhbmQgc3VtbWluZyB0aGUgY291bnRzDQpkYXRhYmFzZV9jb3VudCA8LSBkYXRhYmFzZV9jb3VudCAlPiUNCiAgbXV0YXRlKGRhdGFiYXNlX3NlYXJjaCA9IGlmX2Vsc2UoZGF0YWJhc2Vfc2VhcmNoICVpbiUgYygiTWVkbGluZSIsICJQdWJtZWQiKSwgIlB1Yk1lZCIsIGRhdGFiYXNlX3NlYXJjaCkpICU+JQ0KICBncm91cF9ieShkYXRhYmFzZV9zZWFyY2gpICU+JQ0KICBzdW1tYXJpc2UobiA9IHN1bShuKSkNCg0KIyBTcGxpdHRpbmcsIGdyb3VwaW5nLCBhbmQgc3VtbWluZyBkaWZmZXJlbnQgY2F0ZWdvcmllcyBvZiBlZmZlY3Qgc2l6ZXMNCmVmZmVjdHNpemVfY291bnQgPC0gc2QgJT4lIA0KICBzZXBhcmF0ZV9yb3dzKGVmZmVjdF9zaXplLCBzZXAgPSAiLFxccysiKSAlPiUgDQogIGNvdW50KGVmZmVjdF9zaXplKSAlPiUNCiAgZmlsdGVyKGVmZmVjdF9zaXplICE9ICJOQSIpICU+JQ0KICBncm91cF9ieShlZmZlY3Rfc2l6ZSkgJT4lDQogIHN1bW1hcmlzZShuID0gc3VtKG4pKQ0KDQplZmZlY3RzaXplX2NvdW50IDwtIGVmZmVjdHNpemVfY291bnQgJT4lIA0KICBtdXRhdGUoZWZmZWN0X3NpemUgPSBpZl9lbHNlKGVmZmVjdF9zaXplICVpbiUgYygiQmV0YSByZWdyZXNzaW9uIiwgIkNvcnJlbGF0aW9uIGNvZWZmaWNpZW50IiksICJDb3JyZWxhdGlvbiIsIGVmZmVjdF9zaXplKSkgJT4lIA0KICBtdXRhdGUoZWZmZWN0X3NpemUgPSBpZl9lbHNlKGVmZmVjdF9zaXplICVpbiUgYygiT2RkcyByYXRpbyIsICJSZXNwb25zZSByYXRpbyIsICJTdGFuZGFyZGl6ZWQgbWVhbiBkaWZmZXJlbmNlIiwgIkxvZyBwYXJ0aXRpb25pbmcgcmF0aW8iLCAiTG9nIG9kZHMgcmF0aW8iLCAiUmF0aW8gb2YgbWVhbnMiLCAiTG9nIHJlc3BvbnNlIHJhdGlvIiksICJNZWFuIGRpZmZlcmVuY2UiLCBlZmZlY3Rfc2l6ZSkpICU+JSANCiAgbXV0YXRlKGVmZmVjdF9zaXplID0gaWZfZWxzZShlZmZlY3Rfc2l6ZSAlaW4lIGMoIlJpc2sgcmF0aW8iKSwgIjJ4MiIsIGVmZmVjdF9zaXplKSkgJT4lIA0KICBtdXRhdGUoZWZmZWN0X3NpemUgPSBpZl9lbHNlKGVmZmVjdF9zaXplICVpbiUgYygiUmF3IHdlaWdodCIsICJHZW9tZXRyaWMgbWVhbiIsICJNYXRlcm5hbCB0cmFuc2ZlciByYXRpbyIsICJTdGFuZGFyZGl6ZWQgbW9ydGFsaXR5IHJhdGUiLCAiVHJhbnNmZXIgcmF0ZSIsIlRyYW5zZmVyIHJhdGlvIiwgIlotc2NvcmUiLCAiTG9nIGNvZWZmaWNpZW50IHZhcmlhdGlvbiByYXRpbyIpLCAiT3RoZXIgRVMiLCBlZmZlY3Rfc2l6ZSkpICU+JSANCiAgZ3JvdXBfYnkoZWZmZWN0X3NpemUpICU+JQ0KICBzdW1tYXJpc2UobiA9IHN1bShuKSkNCg0KIyBDYXRlZ29yaXppbmcgc29mdHdhcmUgYXMgZWl0aGVyICJDb2RlLWJhc2VkIHNvZnR3YXJlIiBvciAiR1VJIiBhbmQgc3VtbWluZyB0aGUgY291bnRzDQpzb2Z0d2FyZV9jb3VudCA8LSBzb2Z0d2FyZV9jb3VudCAlPiUNCiAgbXV0YXRlKHNvZnR3YXJlX2FuYWx5c2lzID0gaWZfZWxzZShzb2Z0d2FyZV9hbmFseXNpcyAlaW4lIGMoIlN0YXRhIiwgIlIiKSwgIkNvZGUtYmFzZWQiLCBzb2Z0d2FyZV9hbmFseXNpcykpICU+JQ0KICBtdXRhdGUoc29mdHdhcmVfYW5hbHlzaXMgPSBpZl9lbHNlKHNvZnR3YXJlX2FuYWx5c2lzICVpbiUgYygiQ01BUyIsICJFeGNlbCIsICJSZXZNYW4iLCAiU0FTIiwgIlhMU1RBVCIpLCAiR1VJIiwgc29mdHdhcmVfYW5hbHlzaXMpKSAlPiUgDQogIG11dGF0ZShzb2Z0d2FyZV9hbmFseXNpcyA9IGlmX2Vsc2Uoc29mdHdhcmVfYW5hbHlzaXMgJWluJSBjKCJOb3QgcmVwb3J0ZWQiKSwgIk5vIHNvZnR3YXJlIHJlcG9ydGVkIiwgc29mdHdhcmVfYW5hbHlzaXMpKSAlPiUNCiAgZ3JvdXBfYnkoc29mdHdhcmVfYW5hbHlzaXMpICU+JQ0KICBzdW1tYXJpc2UobiA9IHN1bShuKSkNCg0KIyBHcm91cGluZyBoZXRlcm9nZW5laXR5IGFzc2Vzc21lbnQgbWV0aG9kcyBhbmQgc3VtbWluZyB0aGUgY291bnRzDQpoZXRlcm9nZW5laXR5X2NvdW50IDwtIGhldGVyb2dlbmVpdHlfY291bnQgJT4lIA0KICBtdXRhdGUoaGV0ZXJvZ2VuZWl0eV9hc3Nlc3NtZW50X21ldGhvZCA9IGlmX2Vsc2UoaGV0ZXJvZ2VuZWl0eV9hc3Nlc3NtZW50X21ldGhvZCAlaW4lIGMoIlRhdSBzcXVhcmUiKSwgIkkgc3F1YXJlZCIsIGhldGVyb2dlbmVpdHlfYXNzZXNzbWVudF9tZXRob2QpKSAlPiUgDQogIG11dGF0ZShoZXRlcm9nZW5laXR5X2Fzc2Vzc21lbnRfbWV0aG9kID0gaWZfZWxzZShoZXRlcm9nZW5laXR5X2Fzc2Vzc21lbnRfbWV0aG9kICVpbiUgYygiQ2hpIHNxdWFyZSIpLCAiUSBzdGF0aXN0aWMiLCBoZXRlcm9nZW5laXR5X2Fzc2Vzc21lbnRfbWV0aG9kKSkgJT4lIA0KICBtdXRhdGUoaGV0ZXJvZ2VuZWl0eV9hc3Nlc3NtZW50X21ldGhvZCA9IGlmX2Vsc2UoaGV0ZXJvZ2VuZWl0eV9hc3Nlc3NtZW50X21ldGhvZCAlaW4lIGMoIk5vdCByZXBvcnRlZCIpLCAiTm8gaGV0ZXJvZ2VuZWl0eSByZXBvcnRlZCIsIGhldGVyb2dlbmVpdHlfYXNzZXNzbWVudF9tZXRob2QpKSAlPiUgDQogIGdyb3VwX2J5KGhldGVyb2dlbmVpdHlfYXNzZXNzbWVudF9tZXRob2QpICU+JQ0KICBzdW1tYXJpc2UobiA9IHN1bShuKSkNCg0KIyBHcm91cGluZyBiaWFzIGFzc2Vzc21lbnQgbWV0aG9kcyB3aXRoIGNvdW50IDw9IDMgdW5kZXIgIk90aGVyIEJBIiBhbmQgc3VtbWluZyB0aGUgY291bnRzDQpiaWFzX21ldGhvZF9jb3VudCA8LSBiaWFzX21ldGhvZF9jb3VudCAlPiUgDQogIG11dGF0ZShiaWFzX2Fzc2Vzc21lbnRfbWV0aG9kID0gaWZfZWxzZShiaWFzX2Fzc2Vzc21lbnRfbWV0aG9kICVpbiUgYygiRWdnZXIncyByZWdyZXNzaW9uIHRlc3QiLCAiRmFpbCBzYWZlIiwgIkJlZ2cncyB0ZXN0IiwgIktlbmRhbGwncyB0YXUgc3RhdGlzdGljIiksIkJpYXMgc3RhdGlzdGljYWwgdGVzdCIsIGJpYXNfYXNzZXNzbWVudF9tZXRob2QpKSAlPiUgDQogICAgbXV0YXRlKGJpYXNfYXNzZXNzbWVudF9tZXRob2QgPSBpZl9lbHNlKGJpYXNfYXNzZXNzbWVudF9tZXRob2QgJWluJSBjKCJOb3QgcmVwb3J0ZWQiKSwiTm8gYmlhcyBhc3Nlc3NtZW50IHJlcG9ydGVkIiwgYmlhc19hc3Nlc3NtZW50X21ldGhvZCkpICU+JSANCiAgZ3JvdXBfYnkoYmlhc19hc3Nlc3NtZW50X21ldGhvZCkgJT4lDQogIHN1bW1hcmlzZShuID0gc3VtKG4pKQ0KDQojIEdyb3VwaW5nIHNlbnNpdGl2aXR5IGFuYWx5c2lzIG1ldGhvZHMgYW5kIHN1bW1pbmcgdGhlIGNvdW50cw0Kc2Vuc2l0aXZpdHlfY291bnQgPC0gIHNlbnNpdGl2aXR5X2NvdW50ICU+JSAgDQogIG11dGF0ZShzZW5zaXRpdml0eV9hbmFseXNpc19tZXRob2QgPSBpZl9lbHNlKG48PSA4LCAiT3RoZXIgc2Vuc2l0aXZpdHkgYW5hbHlzaXMiLCBhcy5jaGFyYWN0ZXIoc2Vuc2l0aXZpdHlfYW5hbHlzaXNfbWV0aG9kKSkpICU+JSANCiAgIG11dGF0ZShzZW5zaXRpdml0eV9hbmFseXNpc19tZXRob2QgPSBpZl9lbHNlKHNlbnNpdGl2aXR5X2FuYWx5c2lzX21ldGhvZCAlaW4lIGMoIk5vdCByZXBvcnRlZCIpLCAiTm8gc2Vuc2l0aXZpdHkgYW5hbHlzaXMgcmVwb3J0ZWQiLHNlbnNpdGl2aXR5X2FuYWx5c2lzX21ldGhvZCkpICU+JSANCiAgZ3JvdXBfYnkoc2Vuc2l0aXZpdHlfYW5hbHlzaXNfbWV0aG9kKSAlPiUNCiAgc3VtbWFyaXNlKG4gPSBzdW0obikpDQoNCiMgR3JvdXBpbmcgcmlzayBvZiBiaWFzIGFzc2Vzc21lbnQgbWV0aG9kcyB3aXRoIGNvdW50IDw9IDMgdW5kZXIgIk90aGVyIFJPQiIgYW5kIHN1bW1pbmcgdGhlIGNvdW50cw0Kcm9iX21ldGhvZF9jb3VudCA8LSAgcm9iX21ldGhvZF9jb3VudCAlPiUgIA0KICBtdXRhdGUocm9iX2Fzc2Vzc21lbnRfbWV0aG9kID0gaWZfZWxzZShuPD0gMywgIk90aGVyIFJPQiB0b29sIiwgYXMuY2hhcmFjdGVyKHJvYl9hc3Nlc3NtZW50X21ldGhvZCkpKSAlPiUgDQogICAgbXV0YXRlKHJvYl9hc3Nlc3NtZW50X21ldGhvZCA9IGlmX2Vsc2Uocm9iX2Fzc2Vzc21lbnRfbWV0aG9kICVpbiUgYygiTm90IHJlcG9ydGVkIiksICJObyByaXNrIG9mIGJpYXMgcmVwb3J0ZWQiLCByb2JfYXNzZXNzbWVudF9tZXRob2QpKSAlPiUgDQogIGdyb3VwX2J5KHJvYl9hc3Nlc3NtZW50X21ldGhvZCkgJT4lDQogIHN1bW1hcmlzZShuID0gc3VtKG4pKQ0KDQojIEdyb3VwaW5nIHZpc3VhbGl6YXRpb24gbWV0aG9kcyB3aXRoIGNvdW50IDw9IDMgdW5kZXIgIk90aGVyIFZpeiIgYW5kIHN1bW1pbmcgdGhlIGNvdW50cw0KdmlzdWFsaXphdGlvbl9jb3VudCA8LSB2aXN1YWxpemF0aW9uX2NvdW50ICU+JSANCiAgIG11dGF0ZSh2aXN1YWxpemF0aW9uX21ldGhvZCA9IGlmX2Vsc2Uobjw9IDMsICJPdGhlciBWaXoiLCBhcy5jaGFyYWN0ZXIodmlzdWFsaXphdGlvbl9tZXRob2QpKSkgJT4lIA0KICBtdXRhdGUodmlzdWFsaXphdGlvbl9tZXRob2QgPSBpZl9lbHNlKHZpc3VhbGl6YXRpb25fbWV0aG9kICVpbiUgYygiTm90IHJlcG9ydGVkIiksICJObyB2aXp1YWxpemF0aW9uIHJlcG9ydGVkIiwgdmlzdWFsaXphdGlvbl9tZXRob2QpKSAlPiUgDQogIGdyb3VwX2J5KHZpc3VhbGl6YXRpb25fbWV0aG9kKSAlPiUNCiAgc3VtbWFyaXNlKG4gPSBzdW0obikpDQoNCiMgR3JvdXBpbmcgcmVwb3J0aW5nIHN0YW5kYXJkcyB0eXBlcyB3aXRoIGNvdW50IDw9IDIgdW5kZXIgIk90aGVyIGd1aWRlbGluZSIgYW5kIHN1bW1pbmcgdGhlIGNvdW50cw0KcmVwb3J0aW5nX2d1aWRlX2NvdW50IDwtIHJlcG9ydGluZ19ndWlkZV9jb3VudCAlPiUgDQogIG11dGF0ZShyZXBvcnRpbmdfc3RhbmRhcmRzX3R5cGUgPSBpZmVsc2Uobjw9IDIsICJPdGhlciBndWlkZWxpbmUiLCBhcy5jaGFyYWN0ZXIocmVwb3J0aW5nX3N0YW5kYXJkc190eXBlKSkpICU+JSANCiAgbXV0YXRlKHJlcG9ydGluZ19zdGFuZGFyZHNfdHlwZSA9IGlmZWxzZShyZXBvcnRpbmdfc3RhbmRhcmRzX3R5cGUgJWluJSBjKCJOb3QgcmVwb3J0ZWQiKSwgIk5vIHJlcG9ydGluZyBndWlkZWxpbmUgcmVwb3J0ZWQiLHJlcG9ydGluZ19zdGFuZGFyZHNfdHlwZSkpICU+JSANCiAgZ3JvdXBfYnkocmVwb3J0aW5nX3N0YW5kYXJkc190eXBlKSAlPiUNCiAgc3VtbWFyaXNlKG4gPSBzdW0obikpDQoNCiMgR3JvdXBpbmcgYmlhcyBhc3Nlc3NtZW50IHZpc3VhbGl6YXRpb24gdHlwZXMgYW5kIHN1bW1pbmcgdGhlIGNvdW50cw0KYmlhc192aXN1YWxpemF0aW9uX2NvdW50IDwtIGJpYXNfdmlzdWFsaXphdGlvbl9jb3VudCAlPiUgDQogIG11dGF0ZShiaWFzX2Fzc2Vzc21lbnRfdmlzdWFsaXphdGlvbiA9IGlmX2Vsc2UoYmlhc19hc3Nlc3NtZW50X3Zpc3VhbGl6YXRpb24gJWluJSBjKCJEb2kgcGxvdCIsICJUcmltIGFuZCBmaWxsIiwgIkZ1bm5lbCBwbG90IiwgIkdhbGJyYWl0aCBwbG90IiksICJCaWFzIHZpc3VhbGl6YXRpb24iLCBiaWFzX2Fzc2Vzc21lbnRfdmlzdWFsaXphdGlvbikpICU+JSANCiAgbXV0YXRlKGJpYXNfYXNzZXNzbWVudF92aXN1YWxpemF0aW9uID0gaWZfZWxzZShiaWFzX2Fzc2Vzc21lbnRfdmlzdWFsaXphdGlvbiAlaW4lIGMoIk5vdCByZXBvcnRlZCIpLCAiTm8gYmlhcyB2aXN1YWxpemF0aW9uIHJlcG9ydGVkIiwgYmlhc19hc3Nlc3NtZW50X3Zpc3VhbGl6YXRpb24pKSAlPiUgDQogIGdyb3VwX2J5KGJpYXNfYXNzZXNzbWVudF92aXN1YWxpemF0aW9uKSAlPiUNCiAgc3VtbWFyaXNlKG4gPSBzdW0obikpDQoNCiMgQ29tYmluZSB0aGUgZGF0YSBmcmFtZXMgYW5kIHVuaXRlIHRoZSBtZXRob2RvbG9neSB0eXBlcw0KZGYgPC0gYmluZF9yb3dzKA0KICBkYXRhYmFzZV9jb3VudCAlPiUgbXV0YXRlKG1ldGhvZG9sb2d5X3R5cGUgPSAnRGF0YWJhc2UgU2VhcmNoJyksDQogIGVmZmVjdHNpemVfY291bnQgJT4lIG11dGF0ZShtZXRob2RvbG9neV90eXBlID0gJ0VmZmVjdCBTaXplJyksDQogIHNvZnR3YXJlX2NvdW50ICU+JSAgbXV0YXRlKG1ldGhvZG9sb2d5X3R5cGUgPSAiU29mdHdhcmUiKSwNCiAgaGV0ZXJvZ2VuZWl0eV9jb3VudCAlPiUgbXV0YXRlKG1ldGhvZG9sb2d5X3R5cGUgPSAiSGV0ZXJvZ2VuZWl0eSIpLA0KICBzZW5zaXRpdml0eV9jb3VudCAlPiUgbXV0YXRlKG1ldGhvZG9sb2d5X3R5cGUgPSAiU2Vuc2l0aXZpdHlfQW5hbHlzaXMiKSwNCiAgYmlhc19tZXRob2RfY291bnQgJT4lICBtdXRhdGUobWV0aG9kb2xvZ3lfdHlwZSA9ICJCaWFzIEFzc2Vzc21lbnQiKSwNCiAgcm9iX21ldGhvZF9jb3VudCAlPiUgbXV0YXRlKG1ldGhvZG9sb2d5X3R5cGUgPSAiUmlzayAgb2YgQmlhcyIpLCANCiAjIHZpc3VhbGl6YXRpb25fY291bnQgJT4lIG11dGF0ZShtZXRob2RvbG9neV90eXBlID0gIlZpc3VhbGl6YXRpb24iKSwNCiAgcmVwb3J0aW5nX2d1aWRlX2NvdW50ICU+JSAgbXV0YXRlKG1ldGhvZG9sb2d5X3R5cGUgPSAiUmVwb3J0aW5nIEd1aWRlIiksDQogIGJpYXNfdmlzdWFsaXphdGlvbl9jb3VudCAlPiUgIG11dGF0ZShtZXRob2RvbG9neV90eXBlID0gIkJpYXMgQXNzZXNzbWVudCIpDQopICU+JSANCiB1bml0ZShtZXRob2RvbG9neV90eXBlX3NwZWNpZmljLCANCiAgICAgICBkYXRhYmFzZV9zZWFyY2gsIA0KICAgICAgIGVmZmVjdF9zaXplLCAgDQogICAgICAgc29mdHdhcmVfYW5hbHlzaXMsDQogICAgICAgaGV0ZXJvZ2VuZWl0eV9hc3Nlc3NtZW50X21ldGhvZCwgDQogICAgICAgc2Vuc2l0aXZpdHlfYW5hbHlzaXNfbWV0aG9kLCANCiAgICAgICBiaWFzX2Fzc2Vzc21lbnRfbWV0aG9kLA0KICAgICAgIHJvYl9hc3Nlc3NtZW50X21ldGhvZCwgDQogICAgICAjIHZpc3VhbGl6YXRpb25fbWV0aG9kLCANCiAgICAgICByZXBvcnRpbmdfc3RhbmRhcmRzX3R5cGUsIA0KICAgICAgIGJpYXNfYXNzZXNzbWVudF92aXN1YWxpemF0aW9uLA0KICAgICAgIHJlbW92ZSA9IFRSVUUsIG5hLnJtID0gVFJVRSkNCg0KIyBQcmVwYXJpbmcgdGhlIGVkZ2VzIGRhdGFmcmFtZSBmb3IgY3JlYXRpbmcgdGhlIGdyYXBoDQplZGdlcyA8LSBkZiAlPiUNCiAgcmVuYW1lKGZyb20gPSBtZXRob2RvbG9neV90eXBlLCB0byA9IG1ldGhvZG9sb2d5X3R5cGVfc3BlY2lmaWMsIHNpemUgPSBuKSAlPiUNCiAgc2VsZWN0KGMoZnJvbSx0byxzaXplKSkgJT4lDQogIGFzLmRhdGEuZnJhbWUoKQ0KDQojIFByZXBhcmluZyB0aGUgdmVydGljZXMgZGF0YWZyYW1lIGZvciBjcmVhdGluZyB0aGUgZ3JhcGgNCnZlcnRpY2VzIDwtIGRmICAlPiUNCiAgcmVuYW1lKG5hbWUgPSBtZXRob2RvbG9neV90eXBlX3NwZWNpZmljLCBzaXplID0gbikgJT4lDQogIHNlbGVjdChjKG5hbWUsc2l6ZSkpICU+JQ0KICBhcy5kYXRhLmZyYW1lKCkNCg0KIyBBcHBlbmRpbmcgdW5pcXVlICdmcm9tJyB2YWx1ZXMgdG8gdmVydGljZXMgYW5kIHRoZWlyIGNvcnJlc3BvbmRpbmcgc3VtbWVkIHNpemVzDQp2ZXJ0aWNlc1sobnJvdyhlZGdlcykrMSk6KG5yb3coZWRnZXMpK2xlbmd0aCh1bmlxdWUoZWRnZXMkZnJvbSkpKSwxXSA8LSB1bmlxdWUoZWRnZXMkZnJvbSkNCk4gPC0gYWdncmVnYXRlKGVkZ2VzJHNpemUsIGxpc3QoZWRnZXMkZnJvbSksIEZVTj1zdW0pDQp2ZXJ0aWNlc1sobnJvdyhlZGdlcykrMSk6KG5yb3coZWRnZXMpK2xlbmd0aCh1bmlxdWUoZWRnZXMkZnJvbSkpKSwyXSA8LSBOJHgNCg0KIyBDcmVhdGluZyBhIGdyYXBoIG9iamVjdCBmcm9tIHRoZSBlZGdlcyBhbmQgdmVydGljZXMgZGF0YWZyYW1lcw0KbXlncmFwaCA8LSBncmFwaF9mcm9tX2RhdGFfZnJhbWUoZWRnZXMsIHZlcnRpY2VzID0gdmVydGljZXMpDQoNCiMgUGxvdHRpbmcgdGhlIGdyYXBoIHVzaW5nIGEgJ2NpcmNsZXBhY2snIGxheW91dCwgYWRkaW5nIGxhYmVscyBhbmQgYWRqdXN0aW5nIGFlc3RoZXRpY3MNCg0KZmlnczI0IDwtIGdncmFwaChteWdyYXBoLCBsYXlvdXQgPSAnY2lyY2xlcGFjaycsIHdlaWdodCA9IHNpemUpICsgDQogICAgZ2VvbV9ub2RlX2NpcmNsZShhZXMoZmlsbCA9IGFzLmZhY3RvcihkZXB0aCkpLCBjb2xvciA9IE5BKSArDQogICAgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzID0gYygiIzFiOWU3NyIsICIjODhEMUFEIikpICsgDQogICAgZ2VvbV9ub2RlX3RleHQoYWVzKGxhYmVsID0gbmFtZSwgZmlsdGVyID0gbGVhZiwgc2l6ZSA9IDEwKSwgdmp1c3QgPSAtMC4zLCBmb250ZmFjZSA9ICJib2xkIikgKw0KICAgIGdlb21fbm9kZV90ZXh0KGFlcyhsYWJlbCA9IHBhc3RlMCgiKCIsIHNpemUsICIpIiksIGZpbHRlciA9IGxlYWYsIHNpemUgPSAxMCksIHZqdXN0ID0gMSwgZm9udGZhY2UgPSAiYm9sZCIpICsNCiAgICB0aGVtZV92b2lkKCkgKw0KICAgIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIikgDQoNCmZpZ3MyNA0KDQpnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzMjQucGRmIiksIHdpZHRoID0gMTgsIGhlaWdodCA9IDE1LCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczI0LmpwZyIpLCB3aWR0aCA9IDE4LCBoZWlnaHQgPSAxNSwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCmBgYA0KDQoNCiMgU2VjdGlvbiAyIA0KVG8gZXhwbG9yZSB0aGUgdmFyaW91cyBjaGFyYWN0ZXJpc3RpY3Mgb2YgdGhlIG9yZ2Fub2NobG9yaW5lIHBlc3RpY2lkZXMgbGl0ZXJhdHVyZSBzdWNoIGFzIHRoZSBwZXN0aWNpZGVzIHVzZWQsIHRoZSBpbXBhY3RzIGVsaWNpdGVkIGluIHJlc3BvbnNlIGFuZCB0aGUgc3ViamVjdHMgdGhhdCB3ZXJlIGludmVzdGlnYXRlZC4NCg0KIyMgRmlndXJlIHMyNQ0KQSBiYXIgcGxvdCBzaG93aW5nIHRoZSBwZXJjZW50YWdlIGFuZCB0b3RhbCBjb3VudCBvZiB0b3RhbCBvZiBwZXN0aWNpZGVzIGludmVzdGlnYXRlIGluIG1ldGEtYW5hbHlzaXMgaW52ZXN0aWdhdGluZyB0aGUgaW1wYWN0cyBvZiBvcmdhbm9jaGxvcmluZSBwZXN0aWNpZGVzLiBOb3RlOiBzb21lIG1ldGEtYW5hbHlzaXMgbWF5IGNvbnRyaWJ1dGUgdG8gbXVsdGlwbGUgc2VjdGlvbnMgaWYgdGhlIHN0dWR5IGludm9sdmVzIG11bHRpcGxlIG9yZ2Fub2NobG9yaW5lIHBlc3RpY2lkZXMuIEZpbHRlcmVkIGZvciBwZXN0aWNpZGUgY291bnRzIGdyZWF0ZXIgdGhhbiA2LiANCmBgYHtyLGZpZy53aWR0aD0xNiwgZmlnLmhlaWdodD0xMH0NCiMgRnVuY3Rpb24gdG8gcmVwbGFjZSBsb25nIE9DUCBuYW1lcyB3aXRoIGFiYnJldmlhdGlvbnMNCnJlcGxhY2Vfb2NwIDwtIGZ1bmN0aW9uKGRmKSB7DQogIGRmICU+JSANCiAgICBtdXRhdGUob2NwID0gY2FzZV93aGVuKA0KICAgICAgIyBIQ0ggcmVsYXRlZCByZXBsYWNlbWVudHMNCiAgICAgIGdyZXBsKCJIZXhhY2hsb3JvY3ljbG9oZXhhbmUgXFwoSENIXFwpIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gIkhDSCIsDQogICAgICBncmVwbCgiYWxwaGEtSGV4YWNobG9yb2N5Y2xvaGV4YW5lIFxcKGFscGhhLUhDSFxcKSIsIG9jcCwgaWdub3JlLmNhc2UgPSBUUlVFKSB+ICLOsSAtIEhDSCIsDQogICAgICBncmVwbCgiYmV0YS1IZXhhY2hsb3JvY3ljbG9oZXhhbmUgXFwoYmV0YS1IQ0hcXCkiLCBvY3AsIGlnbm9yZS5jYXNlID0gVFJVRSkgfiAizrIgLSBIQ0giLA0KICAgICAgZ3JlcGwoImdhbW1hLUhleGFjaGxvcm9jeWNsb2hleGFuZSBcXChnYW1tYS1IQ0hcXCkiLCBvY3AsIGlnbm9yZS5jYXNlID0gVFJVRSkgfiAiTGluZGFuZSIsDQogICAgICAjIEREVCByZWxhdGVkIHJlcGxhY2VtZW50cw0KICAgICAgZ3JlcGwoIkRpY2hsb3JvZGlwaGVueWx0cmljaGxvcm9ldGhhbmUgXFwoRERUXFwpIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gIkREVCIsDQogICAgICBncmVwbCgicCxwLURpY2hsb3JvZGlwaGVueWx0cmljaGxvcm9ldGhhbmUgXFwocCxwLUREVFxcKSIsIG9jcCwgaWdub3JlLmNhc2UgPSBUUlVFKSB+ICJwLHAtRERUIiwNCiAgICAgIGdyZXBsKCJvLHAtRGljaGxvcm9kaXBoZW55bHRyaWNobG9yb2V0aGFuZSBcXChvLHAtRERUXFwpIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gIm8scC1ERFQiLA0KICAgICAgIyBEREQgcmVsYXRlZCByZXBsYWNlbWVudHMNCiAgICAgIGdyZXBsKCJEaWNobG9yb2RpcGhlbnlsZGljaGxvcm9ldGhhbmUgXFwoREREXFwpIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gIkRERCIsDQogICAgICBncmVwbCgicCxwLURpY2hsb3JvZGlwaGVueWxkaWNobG9yb2V0aGFuZSBcXChwLHAtREREXFwpIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gInAscC1EREQiLA0KICAgICAgZ3JlcGwoIm8scC1EaWNobG9yb2RpcGhlbnlsZGljaGxvcm9ldGhhbmUgXFwobyxwLURERFxcKSIsIG9jcCwgaWdub3JlLmNhc2UgPSBUUlVFKSB+ICJvLHAtREREIiwNCiAgICAgICMgRERFIHJlbGF0ZWQgcmVwbGFjZW1lbnRzDQogICAgICBncmVwbCgiRGljaGxvcm9kaXBoZW55bGRpY2hsb3JvZXRoeWxlbmUgXFwoRERFXFwpIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gIkRERSIsDQogICAgICBncmVwbCgicCxwLURpY2hsb3JvZGlwaGVueWxkaWNobG9yb2V0aHlsZW5lIFxcKHAscC1EREVcXCkiLCBvY3AsIGlnbm9yZS5jYXNlID0gVFJVRSkgfiAicCxwLURERSIsDQogICAgICBncmVwbCgibyxwLURpY2hsb3JvZGlwaGVueWxkaWNobG9yb2V0aHlsZW5lIFxcKG8scC1EREVcXCkiLCBvY3AsIGlnbm9yZS5jYXNlID0gVFJVRSkgfiAibyxwLURERSIsDQogICAgICBUUlVFIH4gb2NwICAjIG5vIGNoYW5nZSBmb3IgYW55IG90aGVycw0KICAgICkpDQp9DQojIFRyYW5zZm9ybSB0aGUgZGF0YSANCm9jcF9jb3VudCA8LQ0KICBvY3AgJT4lIA0KICBzZXBhcmF0ZV9yb3dzKG9jcCwgc2VwID0gIixcXHMrIikgJT4lIA0KICByZXBsYWNlX29jcCAlPiUgDQogIGNvdW50KG9jcCkgJT4lIA0KICBmaWx0ZXIoIWlzLm5hKG9jcCkpICU+JSAjIGZpbHRlciBvdXQgTkEgDQogIGFycmFuZ2UoZGVzYyhuKSkgJT4lIA0KICBtdXRhdGUob2NwID0gaWZlbHNlKG4gPD0gNiwgIm90aGVyIE9DUCIsIGFzLmNoYXJhY3RlcihvY3ApKSkgJT4lIA0KIyBPdGhlciBvcmdhbm9jaGxvcmluZSBwZXN0aWNpZGVzIGluY2x1ZGU6IHRveGFwaGVuZSAobj02KSwgTWV0aG94eWNobG9yIChuPTYpLCBwLHAtREREIChuPTUpLCBvLHAtREREIChuPTUpLCBjaXMtQ2hsb3JkYW5lIChuPTUpLCB0cmFucz1DaGxvcmRhbmUgKG49NCksIEVuZG9zdWxmYW4gSUkgKG49NCksIEVuZG9zdWxmYW4gKG49MyksbyxwLURERCAobj0zKSwgY2lzLU5vbmFjaGxvciAobj0zKSB5LUNobG9yZGFuZSAobj0yKSwgQ2hsb3JvcGhlbm9sIChuPTIpLCBiZXRhLUJIQyAobj0yKSwgYWxwaGEtQ2hsb3JkYW5lIChuPTIpLCBUQ0REIChuPTEpLCBOb25hY2hsb3JlIChuPTEpLCBFbmRyaW4ga2V0b25lIChuPTEpLCBFbmRyaW4gQWxkZWh5ZGUgKG49MSksIEVuZG9zdWxmYW4gc3VsZmF0ZSAobj0xKSwgRGljb2ZvbCAobj0xKSwgZGVsdGEtSENIIChuPTEpLCBkZWx0YS1CSEMgKG49MSksIERERCAobj0xKSwgY2lzLUhlcHRhY2hsb3IgKG49MSksIGFscGhhLUJIQyAobj0xKS4NCiAgZ3JvdXBfYnkob2NwKSAlPiUgDQogIHN1bW1hcmlzZShuID1zdW0obikpDQoNCiMgQ2FsY3VsYXRlIHRoZSBwcm9wb3J0aW9uIGFuZCBwZXJjZW50YWdlIG9mIGVhY2ggT0NQDQpvY3BfcGN0IDwtIG9jcF9jb3VudCAlPiUNCiAgbXV0YXRlKHByb3BvcnRpb24gPSBuLzEwNCwNCiAgICAgICAgIHBlcmNlbnRhZ2UgPSBwcm9wb3J0aW9uKjEwMCkNCg0KDQojIENyZWF0ZSB0aGUgY291bnQgcGxvdCBmb3IgT0NQcw0KZmlnczI1IDwtIG9jcF9jb3VudCAlPiUNCiAgZ2dwbG90KGFlcyh4ID0gbiwgeSA9IHJlb3JkZXIob2NwLCBuKSwgZmlsbCA9ICIjMWI5ZTc3IikpICsNCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIHdpZHRoID0gMC44LCBhbHBoYSA9IDAuNykgKw0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiwgeCA9IG4gLyAyLCB5ID0gcmVvcmRlcihvY3AsIG4pKSwgaGp1c3QgPSAwLjUsIHNpemUgPSA3LCBjb2xvciA9ICJibGFjayIpICsNCiAgZ2VvbV90ZXh0KGRhdGEgPSBvY3BfcGN0LCBhZXMobGFiZWwgPSBwYXN0ZTAoIigiLCByb3VuZChwZXJjZW50YWdlLCAxKSwgIiUpIiksIHggPSBuKSwgDQogICAgICAgICAgICBoanVzdCA9IC0gMC4xLCBzaXplID0gNywgY29sb3IgPSAiYmxhY2siLCBmb250ZmFjZSA9ICJib2xkIikgKw0KICBzY2FsZV9maWxsX2lkZW50aXR5KGd1aWRlID0gIm5vbmUiKSArDQogIHNjYWxlX3hfY29udGludW91cyhuYW1lID0gIkFydGljbGUgQ291bnQiLCBleHBhbmQgPSBjKDAsIDApLCBsaW1pdHMgPSBjKDAsIG1heChvY3BfY291bnQkbikqMS4yKSkgKw0KICBsYWJzKHRpdGxlID0gTlVMTCwgeCA9IE5VTEwsIHkgPSBOVUxMKSArDQogIG9yZ2Fub2NobG9yVEhFTUUoKSArDQogIHRoZW1lKGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAyMCkpICANCg0KZmlnczI1DQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczI1LnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczI1LmpwZyIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCmBgYA0KDQojIyBGaWd1cmUgczI2DQpBIGJhciBwbG90IHNob3dpbmcgdGhlIHBlcmNlbnRhZ2UgYW5kIHRvdGFsIGNvdW50IG9mIHRvdGFsIG9mIHN1YmplY3RzIGludmVzdGlnYXRlIGluIG1ldGEtYW5hbHlzaXMgaW52ZXN0aWdhdGluZyB0aGUgaW1wYWN0cyBvZiBvcmdhbm9jaGxvcmluZSBwZXN0aWNpZGVzLiBOb3RlOiBzb21lIG1ldGEtYW5hbHlzaXMgbWF5IGNvbnRyaWJ1dGUgdG8gbXVsdGlwbGUgc2VjdGlvbnMgaWYgdGhlIHN0dWR5IGludm9sdmVzIG11bHRpcGxlIHN1YmplY3RzDQpgYGB7cixmaWcud2lkdGg9MTYsIGZpZy5oZWlnaHQ9MTB9DQojIENhbGN1bGF0ZSB0b3RhbCBjb3VudCBmb3IgZWFjaCBjYXRlZ29yeQ0Kc3ViamVjdF9jb3VudCA8LSBzdWIgJT4lIA0KICBzZXBhcmF0ZV9yb3dzKHN1YmplY3QsIHNlcCA9ICIsXFxzKyIpICU+JSANCiAgbXV0YXRlKHN1YmplY3QgPSBpZmVsc2UoZ3JlcGwoIk5vbi1odW1hbiBhbmltYWwiLCBzdWJqZWN0LCBpZ25vcmUuY2FzZSA9IFRSVUUpLCAiTm9uLWh1bWFuXG5hbmltYWwiLCBzdWJqZWN0KSkgJT4lIA0KICBjb3VudChzdWJqZWN0KQ0KICAgDQoNCiMgQ2FsY3VsYXRlIHByb3BvcnRpb24gYW5kIHBlcmNlbnRhZ2UgZm9yIGVhY2ggY2F0ZWdvcnkNCnN1YmplY3RfcGN0IDwtIHN1YmplY3RfY291bnQgJT4lDQogIG11dGF0ZShwcm9wb3J0aW9uID0gbi8xMDUsDQogICAgICAgICBwZXJjZW50YWdlID0gcHJvcG9ydGlvbioxMDApDQoNCiMgQ3JlYXRlIHRoZSBjb3VudCBwbG90IGZvciBzdWJqZWN0cw0KZmlnczI2IDwtIHN1YmplY3RfY291bnQgJT4lDQogIGdncGxvdChhZXMoeCA9IG4sIHkgPSByZW9yZGVyKHN1YmplY3QsIG4pLCBmaWxsID0gIiMxYjllNzciKSkgKw0KICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5Iiwgd2lkdGggPSAwLjggLCBhbHBoYSA9IDAuNykgKw0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiwgeCA9IG4gLyAyLCB5ID0gcmVvcmRlcihzdWJqZWN0LCBuKSksIGhqdXN0ID0gMC41LCBzaXplID0gMTIsIGNvbG9yID0gImJsYWNrIikgKw0KICBnZW9tX3RleHQoZGF0YSA9IHN1YmplY3RfcGN0LCBhZXMobGFiZWwgPSBwYXN0ZTAoIigiLCByb3VuZChwZXJjZW50YWdlLCAxKSwgIiUpIiksIHggPSBuKSwgDQogICAgICAgICAgICBoanVzdCA9IC0wLjEsIHNpemUgPSAxMiwgY29sb3IgPSAiYmxhY2siLCBmb250ZmFjZSA9ICJib2xkIikgKw0KICBzY2FsZV9maWxsX2lkZW50aXR5KGd1aWRlID0gIm5vbmUiKSArDQogIHNjYWxlX3hfY29udGludW91cyhuYW1lID0gIkFydGljbGUgQ291bnQiLCBleHBhbmQgPSBjKDAsIDApLCBsaW1pdHMgPSBjKDAsIG1heChzdWJqZWN0X2NvdW50JG4pKjEuMikpICsNCiAgbGFicyh0aXRsZSA9IE5VTEwsIHggPSBOVUxMLCB5ID0gTlVMTCkgKw0KICBvcmdhbm9jaGxvclRIRU1FKCkgICANCg0KDQpmaWdzMjYNCg0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzMjYucGRmIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzMjYuanBnIiksIHdpZHRoID0gMTYsIGhlaWdodCA9IDEwLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KYGBgDQoNCiMjIEZpZ3VyZSBzMjcNCkEgYmFyIHBsb3Qgc2hvd2luZyB0aGUgcGVyY2VudGFnZSBhbmQgdG90YWwgY291bnQgb2YgdG90YWwgb2Ygc3ViamVjdHMgaW52ZXN0aWdhdGUgaW4gbWV0YS1hbmFseXNpcyBpbnZlc3RpZ2F0aW5nIHRoZSBpbXBhY3RzIG9mIG9yZ2Fub2NobG9yaW5lIHBlc3RpY2lkZXMuIE5vdGU6IHNvbWUgbWV0YS1hbmFseXNpcyBtYXkgY29udHJpYnV0ZSB0byBtdWx0aXBsZSBzZWN0aW9ucyBpZiB0aGUgc3R1ZHkgaW52b2x2ZXMgbXVsdGlwbGUgc3ViamVjdHMuIEZpbHRlcmVkIGZvciBpbXBhY3QgY291bnRzIGdyZWF0ZXIgdGhhbiAxLiANCmBgYHtyLGZpZy53aWR0aD0xNiwgZmlnLmhlaWdodD0xMH0NCiMgQ2FsY3VsYXRlIHRvdGFsIGNvdW50IGZvciBlYWNoIGNhdGVnb3J5DQppbXBhY3RfY291bnQgPC0gDQogIGltICU+JSANCiAgICBzZXBhcmF0ZV9yb3dzKGltcGFjdCwgc2VwID0gIixcXHMrIikgJT4lIA0KICAgIGNvdW50KGltcGFjdCkgJT4lIA0KICBmaWx0ZXIoaW1wYWN0ICE9ICJOQSIpICU+JQ0KICBtdXRhdGUoaW1wYWN0ID0gaWZlbHNlKG48PSAyLCAib3RoZXIiLCBhcy5jaGFyYWN0ZXIoaW1wYWN0KSkpICU+JSANCiAgICBncm91cF9ieShpbXBhY3QpICU+JQ0KICBzdW1tYXJpc2UobiA9IHN1bShuKSkNCg0KIyBDYWxjdWxhdGUgcHJvcG9ydGlvbiBhbmQgcGVyY2VudGFnZSBmb3IgZWFjaCBjYXRlZ29yeQ0KaW1wYWN0X3BjdCA8LSBpbXBhY3RfY291bnQgJT4lDQogIG11dGF0ZShwcm9wb3J0aW9uID0gbi9zdW0oaW1wYWN0X2NvdW50JG4pLA0KICAgICAgICAgcGVyY2VudGFnZSA9IHByb3BvcnRpb24qMTAwKQ0KDQojIENyZWF0ZSB0aGUgY291bnQgcGxvdCBmb3IgaW1wYWN0cyANCmZpZ3MyNyA8LSBpbXBhY3RfY291bnQgJT4lDQogIGdncGxvdChhZXMoeCA9IG4sIHkgPSByZW9yZGVyKGltcGFjdCwgbiksIGZpbGwgPSAiIzFiOWU3NyIpKSArDQogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCB3aWR0aCA9IDAuOCAsIGFscGhhID0gMC43KSArDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBuLCB4ID0gbiAvIDIsIHkgPSByZW9yZGVyKGltcGFjdCwgbikpLCBoanVzdCA9IDAuNSwgc2l6ZSA9IDEwLCBjb2xvciA9ICJibGFjayIpICsNCiAgZ2VvbV90ZXh0KGRhdGEgPSBpbXBhY3RfcGN0LCBhZXMobGFiZWwgPSBwYXN0ZTAoIigiLCByb3VuZChwZXJjZW50YWdlLCAxKSwgIiUpIiksIHggPSBuKSwgDQogICAgICAgICAgICBoanVzdCA9IC0wLjEsIHNpemUgPSAxMCwgY29sb3IgPSAiYmxhY2siLCBmb250ZmFjZSA9ICJib2xkIikgKw0KICBzY2FsZV9maWxsX2lkZW50aXR5KGd1aWRlID0gIm5vbmUiKSArDQogIHNjYWxlX3hfY29udGludW91cyhuYW1lID0gIkFydGljbGUgQ291bnQiLCBleHBhbmQgPSBjKDAsIDApLCBsaW1pdHMgPSBjKDAsIG1heChpbXBhY3RfY291bnQkbikqMS4zKSkgKw0KICBsYWJzKHRpdGxlID0gTlVMTCwgeCA9IE5VTEwsIHkgPSBOVUxMKSArDQogIG9yZ2Fub2NobG9yVEhFTUUoKSANCg0KZmlnczI3DQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczI3LnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczI3LmpwZyIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCg0KYGBgDQoNCiMjIEZpZ3VyZSBzMjgNCkEgYmFyIHBsb3Qgc2hvd2luZyB0aGUgcGVyY2VudGFnZSBhbmQgdG90YWwgY291bnQgb2YgdG90YWwgb2YgaW1wYWN0IGNhdGVnb3JpZXMgaW52ZXN0aWdhdGVkIGluIG1ldGEtYW5hbHlzaXMgaW52ZXN0aWdhdGluZyB0aGUgaW1wYWN0cyBvZiBvcmdhbm9jaGxvcmluZSBwZXN0aWNpZGVzLiANCk5vdGU6IHNvbWUgbWV0YS1hbmFseXNpcyBtYXkgY29udHJpYnV0ZSB0byBtdWx0aXBsZSBzZWN0aW9ucyBpZiB0aGUgc3R1ZHkgaW52b2x2ZXMgbXVsdGlwbGUgaW1wYWN0cw0KYGBge3IsZmlnLndpZHRoPTE2LCBmaWcuaGVpZ2h0PTEwfQ0KIyBDcmVhdGUgYSBjb2xsdW1uIGZvciBicm9hZCBpbXBhY3RzDQppbSA8LSBpbSAlPiUNCiAgICAgICAgc2VwYXJhdGVfcm93cyhpbXBhY3QsIHNlcCA9ICIsXFxzKyIpICU+JSANCiAgbXV0YXRlKGltcGFjdF9icm9hZCA9IGNhc2Vfd2hlbigNCiAgICBpbXBhY3QgJWluJSBjKCJwYXJraW5zb25zIGRpc2Vhc2UiLCAiYWx6aGVpbWVycyBkaXNlYXNlIiwgImF1dGlzbSBzcGVjdHJ1bSBkaXNvcmRlciIsICJicmFpbiB0dW1vdXIiLCAiYW15b3Ryb3BoaWMgbGF0ZXJhbCBzY2xlcm9zaXMiICkgfiAiTmV1cm9sb2dpY2FsIiwNCiAgICBpbXBhY3QgJWluJSBjKCJjb25jZW50cmF0aW9uIiwgImNvbnRhbWluYXRpb24iKSB+ICJDb25jZW50cmF0aW9uIiwNCiAgICBpbXBhY3QgJWluJSBjKCJkaWFiZXRlcyIsICJ0aHlyb2lkIGZ1bmN0aW9uIiwgImh5cGVydGVuc2lvbiIsICJlbmRvbWV0cmlvc2lzIikgfiAiRW5kb2NyaW5lIiwNCiAgICBncmVwbCgiY2FuY2VyIiwgaW1wYWN0LCBpZ25vcmUuY2FzZSA9IFRSVUUpIHwgaW1wYWN0ICVpbiUgYygibGV1a2VtaWEiLCAibHltcGhvbWEiLCAibXVsdGlwbGUgbXllbG9tYSIsICJuZXVyb2JsYXN0b21hIikgfiAiQ2FyY2lub2dlbiIsDQogICAgaW1wYWN0ICVpbiUgYygicmVzcGlyYXRvcnkgaGVhbHRoIiwgImNhcmRpb3Zhc2N1bGFyIGRpc2Vhc2UiLCAiYXN0aG1hIiwgInByb2xvbmdlZCBicmFkeWNhcmRpYSIpIH4gIkNhcmRpb3Zhc2N1bGFyIiwNCiAjICAgaW1wYWN0ICVpbiUgYygiYmlydGggb3V0Y29tZXMiLCAiYmlydGggd2VpZ2h0IiwgInByZXRlcm0gYmlydGgiKSB+ICJCaXJ0aCIsDQogICAgaW1wYWN0ICVpbiUgYygib2Jlc2l0eSIsICJhZGlwb3NpdHkiKSB+ICJPYmVzaXR5IiwNCiAgICBpbXBhY3QgJWluJSBjKCJzcGVybSBxdWFsaXR5IiwgIm5ldXJvYmxhc3RvbWEiLCAiaHlwb3NwYWRpYXMiLCAiY3J5cHRvY2hpZGlzbSIsICJyZXByb2R1Y3RpdmUgc3lzdGVtIikgfiAiUmVwcm9kdWN0aW9uIiwNCiAgICBUUlVFIH4gIk90aGVyIEltcGFjdCINCiAgKSkNCg0KDQojIENhbGN1bGF0ZSB0b3RhbCBjb3VudCBmb3IgZWFjaCBjYXRlZ29yeQ0KaW1wYWN0X2NvdW50X2Jyb2FkIDwtIA0KICBpbSAlPiUgDQogICAgc2VwYXJhdGVfcm93cyhpbXBhY3RfYnJvYWQsIHNlcCA9ICIsXFxzKyIpICU+JSANCiAgICBjb3VudChpbXBhY3RfYnJvYWQpICU+JSANCiAgZmlsdGVyKGltcGFjdF9icm9hZCAhPSAiTkEiKSAlPiUNCiAgICBncm91cF9ieShpbXBhY3RfYnJvYWQpICU+JQ0KICBzdW1tYXJpc2UobiA9IHN1bShuKSkNCg0KIyBDYWxjdWxhdGUgcHJvcG9ydGlvbiBhbmQgcGVyY2VudGFnZSBmb3IgZWFjaCBjYXRlZ29yeQ0KaW1wYWN0X3BjdF9icm9hZCA8LSBpbXBhY3RfY291bnRfYnJvYWQgJT4lDQogIG11dGF0ZShwcm9wb3J0aW9uID0gbi8xMDUsDQogICAgICAgICBwZXJjZW50YWdlID0gcHJvcG9ydGlvbioxMDApDQoNCg0KIyBDcmVhdGUgdGhlIGNvdW50IHBsb3QgZm9yIGltcGFjdHMgDQpmaWdzMjggPC0gaW1wYWN0X2NvdW50X2Jyb2FkICU+JQ0KICBnZ3Bsb3QoYWVzKHggPSBuLCB5ID0gcmVvcmRlcihpbXBhY3RfYnJvYWQsIG4pLCBmaWxsID0gIiMxYjllNzciKSkgKw0KICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5Iiwgd2lkdGggPSAwLjggLCBhbHBoYSA9IDAuNykgKw0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiwgeCA9IG4gLyAyLCB5ID0gcmVvcmRlcihpbXBhY3RfYnJvYWQsIG4pKSwgaGp1c3QgPSAwLjUsIHNpemUgPSAxMCwgY29sb3IgPSAiYmxhY2siKSArDQogIGdlb21fdGV4dChkYXRhID0gaW1wYWN0X3BjdF9icm9hZCwgYWVzKGxhYmVsID0gcGFzdGUwKCIoIiwgcm91bmQocGVyY2VudGFnZSwgMSksICIlKSIpLCB4ID0gbiksIA0KICAgICAgICAgICAgaGp1c3QgPSAtMC4xLCBzaXplID0gMTAsIGNvbG9yID0gImJsYWNrIiwgZm9udGZhY2UgPSAiYm9sZCIpICsNCiAgc2NhbGVfZmlsbF9pZGVudGl0eShndWlkZSA9ICJub25lIikgKw0KICBzY2FsZV94X2NvbnRpbnVvdXMobmFtZSA9ICJBcnRpY2xlIENvdW50IiwgZXhwYW5kID0gYygwLCAwKSwgbGltaXRzID0gYygwLCBtYXgoaW1wYWN0X2NvdW50X2Jyb2FkJG4pKjEuMykpICsNCiAgbGFicyh0aXRsZSA9IE5VTEwsIHggPSBOVUxMLCB5ID0gTlVMTCkgKw0KICBvcmdhbm9jaGxvclRIRU1FKCkNCg0KZmlnczI4DQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczI4LnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczI4LmpwZyIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCg0KYGBgDQoNCiMjIEZpZ3VyZSBzMjkNCkFuIGFsbHV2aWFsIHBsb3Qgc2hvd2luZyB0aGUgcmVsYXRpb25zaGlwcyBiZXR3ZWVuIHRoZSBwZXN0aWNpZGUgb2YgZXhwb3N1cmUsIHRoZSBzdWJqZWN0IGJlaW5nIGV4cG9zZWQgYW5kIHRoZSBpbXBhY3Qgb2YgZXhwb3N1cmUgDQpgYGB7cixmaWcud2lkdGg9MTgsIGZpZy5oZWlnaHQ9MTJ9DQoNCiMgRnVuY3Rpb24gdG8gY2hhbmdlIE9DUCB0byBiZSBtb3JlIGdlbmVyYWwNCnJlcGxhY2Vfb2NwMiA8LSBmdW5jdGlvbihkZikgew0KICBkZiAlPiUgDQogIG11dGF0ZShvY3AgPSBjYXNlX3doZW4oDQogICAgZ3JlcGwoIkNobG9yZGFuZSIsIG9jcCwgaWdub3JlLmNhc2UgPSBUUlVFKSB+ICJDaGxvcmRhbmUiLCAgDQogICAgZ3JlcGwoIkVuZG9zdWxmYW4iLCBvY3AsIGlnbm9yZS5jYXNlID0gVFJVRSkgfiAiRW5kb3N1bGZhbiIsIA0KICAgIGdyZXBsKCJOb25hY2hsb3IiLCBvY3AsIGlnbm9yZS5jYXNlID0gVFJVRSkgfiAiTm9uYWNobG9yZSIsIA0KICAgIGdyZXBsKCJIZXB0YWNobG9yIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gIkhlcHRhY2hsb3IiLA0KICAgIGdyZXBsKCJUQ0REIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gIlRDREQiLCANCiAgICBncmVwbCgiRW5kcmluIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gIkVuZHJpbiIsDQogICAgZ3JlcGwoIkhleGFjaGxvcm9iZW56ZW5lIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gIkhDSCIsDQogICAgZ3JlcGwoIkxpbmRhbmUiLCBvY3AsIGlnbm9yZS5jYXNlID0gVFJVRSkgfiAiSENIIiwgDQogICAgZ3JlcGwoIkhleGFjaGxvcm9jeWNsb2hleGFuZSBcXChIQ0hcXCkiLCBvY3AsIGlnbm9yZS5jYXNlID0gVFJVRSkgfiAiSENIIiwNCiAgICBncmVwbCgiYWxwaGEtSGV4YWNobG9yb2N5Y2xvaGV4YW5lIFxcKGFscGhhLUhDSFxcKSIsIG9jcCwgaWdub3JlLmNhc2UgPSBUUlVFKSB+ICJIQ0giLA0KICAgIGdyZXBsKCJiZXRhLUhleGFjaGxvcm9jeWNsb2hleGFuZSBcXChiZXRhLUhDSFxcKSIsIG9jcCwgaWdub3JlLmNhc2UgPSBUUlVFKSB+ICJIQ0giLA0KICAgIGdyZXBsKCJnYW1tYS1IZXhhY2hsb3JvY3ljbG9oZXhhbmUgXFwoZ2FtbWEtSENIXFwpIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gIkhDSCIsDQogICAgZ3JlcGwoIkRpY2hsb3JvZGlwaGVueWx0cmljaGxvcm9ldGhhbmUgXFwoRERUXFwpIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gIkREVCIsDQogICAgZ3JlcGwoInAscC1EaWNobG9yb2RpcGhlbnlsdHJpY2hsb3JvZXRoYW5lIFxcKHAscC1ERFRcXCkiLCBvY3AsIGlnbm9yZS5jYXNlID0gVFJVRSkgfiAiRERUIiwNCiAgICBncmVwbCgibyxwLURpY2hsb3JvZGlwaGVueWx0cmljaGxvcm9ldGhhbmUgXFwobyxwLUREVFxcKSIsIG9jcCwgaWdub3JlLmNhc2UgPSBUUlVFKSB+ICJERFQiLA0KICAgIGdyZXBsKCJEaWNobG9yb2RpcGhlbnlsZGljaGxvcm9ldGhhbmUgXFwoREREXFwpIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gIkRERCIsDQogICAgZ3JlcGwoInAscC1EaWNobG9yb2RpcGhlbnlsZGljaGxvcm9ldGhhbmUgXFwocCxwLURERFxcKSIsIG9jcCwgaWdub3JlLmNhc2UgPSBUUlVFKSB+ICJEREQiLA0KICAgIGdyZXBsKCJvLHAtRGljaGxvcm9kaXBoZW55bGRpY2hsb3JvZXRoYW5lIFxcKG8scC1ERERcXCkiLCBvY3AsIGlnbm9yZS5jYXNlID0gVFJVRSkgfiAiREREIiwNCiAgICBncmVwbCgiRGljaGxvcm9kaXBoZW55bGRpY2hsb3JvZXRoeWxlbmUgXFwoRERFXFwpIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gIkRERSIsDQogICAgZ3JlcGwoInAscC1EaWNobG9yb2RpcGhlbnlsZGljaGxvcm9ldGh5bGVuZSBcXChwLHAtRERFXFwpIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gIkRERSIsDQogICAgZ3JlcGwoIm8scC1EaWNobG9yb2RpcGhlbnlsZGljaGxvcm9ldGh5bGVuZSBcXChvLHAtRERFXFwpIiwgb2NwLCBpZ25vcmUuY2FzZSA9IFRSVUUpIH4gIkRERSIsDQogICAgVFJVRSB+IG9jcA0KICApKQ0KfQ0KIA0KIyBUcmFuc2Zvcm0gdGhlIGRhdGEgDQphbGx1dmlhbCA8LSBpbSAlPiUNCiAgbGVmdF9qb2luKG9jcCwgYnkgPSAic3R1ZHlfaWQiKSAlPiUNCiAgbGVmdF9qb2luKHN1YiwgYnkgPSAic3R1ZHlfaWQiKSAlPiUNCiAgc2VwYXJhdGVfcm93cyhzdWJqZWN0LCBzZXAgPSAiLFxccysiKSAlPiUgDQogIHNlcGFyYXRlX3Jvd3Mob2NwLCBzZXAgPSAiLFxccysiKSAlPiUgDQogIHNlcGFyYXRlX3Jvd3MoaW1wYWN0X2Jyb2FkLCBzZXAgPSAiLFxccysiKSAlPiUNCiAgcmVwbGFjZV9vY3AyKCkgJT4lDQogIGZpbHRlcighZ3JlcGwoIm5vdCByZXBvcnRlZCIsIG9jcCwgaWdub3JlLmNhc2UgPSBUUlVFKSkgJT4lDQogIGdyb3VwX2J5KG9jcCwgc3ViamVjdCwgaW1wYWN0X2Jyb2FkKSAlPiUNCiAgc3VtbWFyaXNlKGZyZXEgPSBuKCksIC5ncm91cHMgPSAnZHJvcCcpICU+JQ0KICBncm91cF9ieShvY3ApICU+JQ0KICBmaWx0ZXIoc3VtKGZyZXEpID4gMTApICU+JSAgDQogIGdyb3VwX2J5KGltcGFjdF9icm9hZCkgJT4lIA0KICBmaWx0ZXIoc3VtKGZyZXEpID4gNSkgJT4lIA0KICBtdXRhdGUoc3ViamVjdCA9IGZhY3RvcihzdWJqZWN0LCBsZXZlbHMgPSBjKCJFbnZpcm9ubWVudCIsICJOb24taHVtYW4gYW5pbWFsIiwgIkh1bWFuIiksIG9yZGVyZWQgPSBUUlVFKSkNCg0KIyBNYWtlIGFsbHV2aWFsIHBsb3QNCmZpZ3MyOSA8LSBhbGx1dmlhbCAlPiUgDQogIGdncGxvdCgNCiAgICAgICBhZXMoYXhpczEgPSBvY3AsIGF4aXMyID0gc3ViamVjdCwgYXhpczMgPSBpbXBhY3RfYnJvYWQsIHkgPSBmcmVxKSkgKw0KICBzY2FsZV94X2Rpc2NyZXRlKGxpbWl0cyA9IGMoIk9yZ2Fub2NobG9yaW5lIFBlc3RpY2lkZSIsICJTdWJqZWN0IiwgIkltcGFjdCIpLCBleHBhbmQgPSBjKC4wNSwgLjEwKSkgKw0KICB4bGFiKCJWYXJpYWJsZXMiKSArDQogIHlsYWIoIkZyZXF1ZW5jeSIpICsgIA0KICBnZW9tX2FsbHV2aXVtKGFlcyhmaWxsID0gc3ViamVjdCkpICsNCiAgZ2VvbV9zdHJhdHVtKHdpZHRoID0gMS8yLCBmaWxsID0gIndoaXRlIiwgY29sb3IgPSAiYmxhY2siKSArDQogIGdlb21fdGV4dChzdGF0ID0gInN0cmF0dW0iLCBhZXMobGFiZWwgPSBhZnRlcl9zdGF0KHN0cmF0dW0pKSwgc2l6ZSA9IDUsIGZvbnRmYWNlID0gImJvbGQiKSArICANCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUoYXhpcy50ZXh0PWVsZW1lbnRfdGV4dChzaXplPTE1KSwgIA0KICAgICAgICBheGlzLnRpdGxlPWVsZW1lbnRfdGV4dChzaXplPTIwKSwNCiAgICAgICAgbGVnZW5kLnBvc2l0aW9uPSJub25lIiwNCiAgICAgICAgcGFuZWwuZ3JpZC5tYWpvciA9IGVsZW1lbnRfYmxhbmsoKSwgIA0KICAgICAgICBwYW5lbC5ncmlkLm1pbm9yID0gZWxlbWVudF9ibGFuaygpKSArIA0KICBzY2FsZV9maWxsX2JyZXdlcihwYWxldHRlID0gIkRhcmsyIiwgbmFtZSA9ICJTdWJqZWN0IENhdGVnb3J5IikNCg0KZmlnczI5DQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczI5LnBkZiIpLCB3aWR0aCA9MTgsIGhlaWdodCA9IDEyLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWdzMjkuanBnIiksIHdpZHRoID0gMTgsIGhlaWdodCA9IDEyLCB1bml0cyA9ICJjbSIsIHNjYWxlID0gMiwgZHBpID0gODAwKQ0KYGBgDQoNCg0KIyMgRmlndXJlIDQNCkEgYnViYmxlIHBsb3Qgc2hvd2luZyB0aGUgY291bnRzIG9mIGVhY2ggcGVzdGljaWRlIHBlciBpbXBhY3QgaW5jbHVkZWQgaW4gY3VycmVudCBtZXRhLWFuYWx5c2lzIG9uIHRoZSBpbXBhY3RzIG9mIG9yZ2Fub2NobG9yaW5lIHBlc3RpY2lkZXMgDQpgYGB7cixmaWcud2lkdGg9MjUsIGZpZy5oZWlnaHQ9MTV9DQoNCiMgSm9pbiB0aGUgb3JnYW5vY2hsb3JpbmUgcGVzdGljaWRlIGRldGFpbHMgd2l0aCB0aGUgaW1wYWN0IGRldGFpbHMNCm9jcF9pbSA8LSBsZWZ0X2pvaW4ob2NwLCBpbSAsc3ViLCBieSA9ICJzdHVkeV9pZCIpIA0KDQojIFNlcGFyYXRlIHJvd3MgaW4gIm9jcF9pbSINCm9jcF9pbTEgPC0gc2VwYXJhdGVfcm93cyhvY3BfaW0sIG9jcCAsIHNlcCA9ICIsICIsIGNvbnZlcnQgPSBUUlVFKQ0KDQoNCiMgR3JvdXAgYnkgIm9jcCIgYW5kICJpbXBhY3QiIGFuZCBzdW1tYXJpemUgY291bnQNCm9jcF9pbV9zdW1tYXJ5IDwtIG9jcF9pbTEgJT4lDQogIG11dGF0ZShvY3AgPSBzdHJfdHJpbShvY3ApLA0KICAgICAgICAgaW1wYWN0X2Jyb2FkID0gc3RyX3RyaW0oaW1wYWN0X2Jyb2FkKSkgJT4lDQogICAgcmVwbGFjZV9vY3AyKCkgJT4lIA0KICBncm91cF9ieShvY3AsIGltcGFjdF9icm9hZCkgJT4lDQogIHN1bW1hcmlzZShjb3VudCA9IG4oKSwgLmdyb3VwcyA9ICJkcm9wIikgJT4lIA0KICBtdXRhdGUob2NwID0gaWZlbHNlKGdyZXBsKCJubyBjaGVtaWNhbCBjbGFzc2lmaWNhdGlvbiIsIG9jcCwgaWdub3JlLmNhc2UgPSBUUlVFKSwgIm5vIGNoZW1pY2FsXG4gY2xhc3NpZmljYXRpb24iLCBvY3ApKQ0KDQojIEZpbHRlciBmb3IgdG9wIDggcGVzdGljaWRlcyANCnRvcF9wZXN0aWNpZGVzIDwtIG9jcF9pbV9zdW1tYXJ5ICU+JQ0KICBmaWx0ZXIob2NwICE9ICJub3QgcmVwb3J0ZWQiKSAlPiUNCiAgZ3JvdXBfYnkob2NwKSAlPiUNCiAgc3VtbWFyaXNlKHRvdGFsX2NvdW50ID0gc3VtKGNvdW50KSkgJT4lDQogIHRvcF9uKDgsIHRvdGFsX2NvdW50KSAlPiUNCiAgcHVsbChvY3ApIA0KDQoNCm9jcF9pbV9zdW1tYXJ5X2ZpbHRlcmVkIDwtIG9jcF9pbV9zdW1tYXJ5ICU+JQ0KICBmaWx0ZXIob2NwICVpbiUgdG9wX3Blc3RpY2lkZXMpDQoNCmZpZzQgPC0gb2NwX2ltX3N1bW1hcnlfZmlsdGVyZWQgJT4lIA0KICBnZ3Bsb3QoYWVzKHggPSBmY3RfcmV2KGZjdF9yZW9yZGVyKGltcGFjdF9icm9hZCwgY291bnQsIC5mdW4gPSAnc3VtJykpLA0KICAgICAgICAgICAgIHkgPSBmY3RfcmVvcmRlcihvY3AsIGNvdW50LCAuZnVuID0gJ3N1bScpLA0KICAgICAgICAgICAgIHNpemUgPSBjb3VudCwNCiAgICAgICAgICAgICBmaWxsID0gaW1wYWN0X2Jyb2FkKSkgKw0KICBnZW9tX3BvaW50KHNoYXBlID0gMjEsIGNvbG9yID0gIndoaXRlIikgKw0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gY291bnQpLCBzaXplID0gMjAsIGZvbnRmYWNlID0gImJvbGQiKSArDQogIGxhYnModGl0bGUgPSBOVUxMLCB4ID0gTlVMTCwgeSA9TlVMTCkgKw0KICB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZSgNCiAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChzaXplID0gMzUpLCAgDQogICAgYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDQwLCBoanVzdCA9IDEpLCAgDQogICAgbGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiKSArDQogIHNjYWxlX3NpemVfY29udGludW91cyhyYW5nZSA9IGMoMzAsIDgwKSkNCg0KZmlnNA0KDQogZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnNC5wZGYiKSwgd2lkdGggPSA0MCwgaGVpZ2h0ID0gMjUsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQogZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnNC5qcGciKSwgd2lkdGggPSA0MCwgaGVpZ2h0ID0gMjUsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQogIA0KYGBgDQoNCiMgU2VjdGlvbiAzDQpUbyBpbnZlc3RpZ2F0ZSBnbG9iYWwgcmVzZWFyY2ggb3V0cHV0IGFuZCBjb2xsYWJvcmF0aW9uIG5ldHdvcmtzDQoNCiMjIEZpZ3VyZSBzMzAsIHMzMSwgczMyLCBzMzMgJiBzMzQNCmBgYHtyLGZpZy53aWR0aD0xNiwgZmlnLmhlaWdodD0xMH0NCg0KYmlibGlvbWV0cmljX2FuYWx5c2lzIDwtIGJpYmxpb0FuYWx5c2lzKGJpYl9zY28pDQpwYXIoY2V4PTEuNSkNCnBsb3QoYmlibGlvbWV0cmljX2FuYWx5c2lzYmlibGlvbWV0cmljX2FuYWx5c2lzKQ0Kc3VtbWFyeShiaWJsaW9tZXRyaWNfYW5hbHlzaXMpDQpzdHIoYmlibGlvbWV0cmljX2FuYWx5c2lzKQ0KDQpgYGANCg0KIyMgRmlndXJlIHMzMw0KTW9zdCBwcm9kdWN0aXZlIGNvdW50cmllcyBmb3IgbWV0YS1hbmFseXNlcyBpbmNsdWRlZCBpbiB0aGUgc3lzdGVtYXRpYyByZXZpZXcgbWFwIEJsdWUgaXMgZm9yIHNpbmdsZSBjb3VudHJ5IHB1YmxpY2F0aW9ucyAoaS5lLiwgY291bnRyaWVzIHdpdGggYXV0aG9ycyBmcm9tIGEgc2luZ2xlIGNvdW50cnkpIGFuZCByZWQgaXMgZm9yIG11bHRpcGxlIGNvdW50cnkgcHVibGljYXRpb25zIChpLmUuLCBjb3VudHJpZXMgd2l0aCBhdXRob3JzIGZyb20gbXVsdGlwbGUgY291bnRyaWVzKS4NCmBgYHtyLGZpZy53aWR0aD0xNiwgZmlnLmhlaWdodD0xMH0NCmZpZ3MzMF9kYXRhIDwtIGJpYmxpb21ldHJpY19hbmFseXNpcyRDb3VudHJ5Q29sbGFib3JhdGlvbg0KZmlnczMwX3RpYmJsZSA8LSBhc190aWJibGUoZmlnczMzX2RhdGEpDQoNCmZpZ3MzMF90aWJibGVfbG9uZyA8LSBmaWdzMzBfdGliYmxlICU+JSANCiAgICAgICAgICAgICAgICAgICAgICBwaXZvdF9sb25nZXIoY29scyA9IGMoU0NQLCBNQ1ApLCBuYW1lc190byA9ICJDb3VudHJ5X0NvbGxhYm9yYXRpb24iLCB2YWx1ZXNfdG8gPSAidmFsdWUiKQ0KDQoNCiMgU3VtbWFyaXppbmcgYW5kIGZpbHRlcmluZyBmb3IgdG9wIHRlbiBjb3VudHJpZXMNCnRvcF9jb3VudHJpZXMgPC0gZmlnczMwX3RpYmJsZV9sb25nICU+JQ0KICBncm91cF9ieShDb3VudHJ5KSAlPiUNCiAgc3VtbWFyaXplKFRvdGFsID0gc3VtKHZhbHVlKSkgJT4lDQogIGFycmFuZ2UoZGVzYyhUb3RhbCkpICU+JQ0KICB0b3BfbigxMCwgVG90YWwpDQoNCiMgRmlsdGVyaW5nIHRoZSBvcmlnaW5hbCBkYXRhc2V0IHRvIGtlZXAgb25seSB0aGUgdG9wIHRlbiBjb3VudHJpZXMNCmZpZ3MzMF90aWJibGVfbG9uZ19maWx0ZXJlZCA8LSBmaWdzMzBfdGliYmxlX2xvbmcgJT4lDQogIGZpbHRlcihDb3VudHJ5ICVpbiUgdG9wX2NvdW50cmllcyRDb3VudHJ5KQ0KDQoNCmZpZ3MzMCA8LSBnZ3Bsb3QoZmlnczMwX3RpYmJsZV9sb25nX2ZpbHRlcmVkLCBhZXMoZmlsbCA9IENvdW50cnlfQ29sbGFib3JhdGlvbiwgeSA9IHZhbHVlLCB4ID0gQ291bnRyeSkpICsNCiAgZ2VvbV9iYXIocG9zaXRpb24gPSAic3RhY2siLCBzdGF0ID0gImlkZW50aXR5IikgKw0KICBjb29yZF9mbGlwKCkgKw0KICBvcmdhbm9jaGxvclRIRU1FKCkNCg0KZmlnczMwDQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczMwLnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczMwLmpwZyIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkgDQoNCmBgYA0KDQojIyAgRmlndXJlIHMzMQ0KYGBge3IsZmlnLndpZHRoPTE2LCBmaWcuaGVpZ2h0PTEwfQ0KDQpmaWdzMzFfZGF0YSA8LSBiaWJsaW9tZXRyaWNfYW5hbHlzaXMkQXV0aG9ycw0KZmlnczMxX3RpYmJsZSA8LSBhc190aWJibGUoZmlnczM0X2RhdGEpDQoNCmZpZ3MzMV90aWJibGVfZmlsdGVyZWQgPC0gZmlnczM0X3RpYmJsZSAlPiUgDQogICAgICAgICAgICAgICAgICAgICAgICAgIHNsaWNlX2hlYWQobj0xMCkgDQogIA0KDQpmaWdzMzEgPC0gZ2dwbG90KGZpZ3MzMV90aWJibGVfZmlsdGVyZWQsIGFlcyh5ID0gbiwgeCA9IHJlb3JkZXIoQVUsbikpKSArDQogICAgICAgICAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIHdpZHRoID0gMC44ICwgYWxwaGEgPSAwLjcsIGZpbGwgPSAiIzFiOWU3NyIpICsNCiAgICAgICAgICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiwgeSA9IG4vMiksIGhqdXN0ID0gMC41LCBjb2xvciA9ICJibGFjayIsIHNpemUgPSAxMCkgKw0KICAgICAgICAgIGNvb3JkX2ZsaXAoKSArDQogICAgICAgICAgb3JnYW5vY2hsb3JUSEVNRSgpDQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczMxLnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczMxLmpwZyIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMCwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkgDQoNCmBgYA0KDQoNCiMjIEZpZ3VyZSA1IA0KSGVhdCBtYXAgb2Ygd29ybGQgc2hvd2luZyB0aGUgY291bnRyeS1sZXZlbCBjb3VudHMgZm9yIGZpcnN0IGF1dGhvcnPigJkgY291bnRyeSBvZiBhZmZpbGlhdGlvbiBvZiBtZXRhLWFuYWx5c2lzIGludmVzdGlnYXRpbmcgdGhlIGltcGFjdHMgb2Ygb3JnYW5vY2hsb3JpbmUgcGVzdGljaWRlcy4gR3JleSBpbmRpY2F0ZXMgbm8gcHVibGljYXRpb25zIGFmZmlsaWF0ZWQgd2l0aCBhIGdpdmVuIGNvdW50cnkgaW4gb3VyIGRhdGEgc2V0LiANCmBgYHtyLGZpZy53aWR0aD0gMjEsIGZpZy5oZWlnaHQ9MTJ9DQojIEV4dHJhY3QgY291bnRyeSBpbmZvcm1hdGlvbiBmcm9tIHRoZSAiQVUxX0NPIiBhbmQgIkFVX0NPIiBmaWVsZHMgb2YgdGhlICJiaWJfc2NvIiBkYXRhc2V0DQpiaWJtYXAgPC0gbWV0YVRhZ0V4dHJhY3Rpb24oYmliX3NjbywgRmllbGQgPSAiQVUxX0NPIiwgc2VwID0gIjsiKSANCmJpYm1hcCA8LSBtZXRhVGFnRXh0cmFjdGlvbihiaWJtYXAsIEZpZWxkID0gIkFVX0NPIiwgc2VwID0gIjsiKSANCg0KIyBDcmVhdGUgYSBkYXRhIGZyYW1lIHdpdGggY291bnRzIG9mIGFydGljbGVzIGZyb20gZWFjaCBjb3VudHJ5DQpmaXJzdGNvdW50cnljb3VudHMgPC0gYmlibWFwICU+JSANCiAgZ3JvdXBfYnkoQVUxX0NPKSAlPiUgDQogIGNvdW50KCkgJT4lIA0KICBmaWx0ZXIoIWlzLm5hKEFVMV9DTykpICANCg0KIyBMb2FkIHdvcmxkIG1hcCBkYXRhIGFuZCByZW1vdmUgY291bnRyaWVzIHdpdGggbG9uZ2l0dWRlID4xODAgdG8gbWFrZSBhbiBlcXVhbCBwcm9qZWN0aW9uLWxpa2UgbWFwDQp3b3JsZF9tYXAgPC0gbWFwX2RhdGEoIndvcmxkIikgJT4lIA0KICBmaWx0ZXIoISBsb25nID4gMTgwKQ0KDQojIEZvcm1hdCBjb3VudHJ5IG5hbWVzIHRvIG1hdGNoIHJlZ2lvbnMgb24gdGhlIHdvcmxkIG1hcA0KZmlyc3Rjb3VudHJ5Y291bnRzJHJlZ2lvbiA8LSBzdHJfdG9fdGl0bGUoZmlyc3Rjb3VudHJ5Y291bnRzJEFVMV9DTykNCmZpcnN0Y291bnRyeWNvdW50cyRyZWdpb25bZmlyc3Rjb3VudHJ5Y291bnRzJHJlZ2lvbiA9PSAiVXNhIl0gPC0gIlVTQSIgDQpmaXJzdGNvdW50cnljb3VudHMkcmVnaW9uW2ZpcnN0Y291bnRyeWNvdW50cyRyZWdpb24gPT0gIktvcmVhIl0gPC0gIlNvdXRoIEtvcmVhIg0KZmlyc3Rjb3VudHJ5Y291bnRzJHJlZ2lvbltmaXJzdGNvdW50cnljb3VudHMkcmVnaW9uID09ICJVbml0ZWQgS2luZ2RvbSJdIDwtICJVSyINCg0KIyBKb2luIGNvdW50IGRhdGEgd2l0aCBtYXAgZGF0YSBhbmQgc2V0IG1pc3NpbmcgY291bnRzIHRvIHplcm8NCmVtcHR5bWFwIDwtIHRpYmJsZShyZWdpb24gPSB1bmlxdWUod29ybGRfbWFwJHJlZ2lvbiksIG4gPSByZXAoMCxsZW5ndGgodW5pcXVlKHdvcmxkX21hcCRyZWdpb24pKSkpDQpmdWxsbWFwIDwtIGxlZnRfam9pbihlbXB0eW1hcCwgZmlyc3Rjb3VudHJ5Y291bnRzLCBieSA9ICJyZWdpb24iKQ0KZnVsbG1hcCRuIDwtIGZ1bGxtYXAkbi54ICsgZnVsbG1hcCRuLnkNCmZ1bGxtYXAkbltpcy5uYShmdWxsbWFwJG4pXSA8LSAwDQoNCmZpZzUgPC0gZnVsbG1hcCAlPiUNCiAgZ2dwbG90KGFlcyhmaWxsID0gbiwgbWFwX2lkID0gcmVnaW9uKSkgKw0KICBnZW9tX21hcChtYXAgPSB3b3JsZF9tYXAsIGNvbG9yID0gImdyYXk1MCIpICsNCiAgZXhwYW5kX2xpbWl0cyh4ID0gd29ybGRfbWFwJGxvbmcsIHkgPSB3b3JsZF9tYXAkbGF0KSArDQogIGNvb3JkX21hcCgibWVyY2F0b3IiLCB4bGltID0gYygtMTgwLCAxODApLCB5bGltID0gYygtNTAsIDkwKSkgKyAgDQogIHRoZW1lKA0KICAgIGF4aXMudGV4dCA9IGVsZW1lbnRfYmxhbmsoKSwgIA0KICAgIGF4aXMudGl0bGUgPSBlbGVtZW50X2JsYW5rKCksICANCiAgICBsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIiwNCiAgICBsZWdlbmQuYm94ID0gImhvcml6b250YWwiLCAgDQogICAgbGVnZW5kLmJveC5qdXN0ID0gImNlbnRlciIsICANCiAgICBsZWdlbmQubWFyZ2luID0gbWFyZ2luKHQgPSAxMCwgdW5pdCA9ICJwdCIpLCAgDQogICAgbGVnZW5kLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDIwKSwgIA0KICAgIGxlZ2VuZC50aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplID0gMjAsIGZhY2UgPSAiYm9sZCIpLCAgDQogICAgbGVnZW5kLmtleS53aWR0aCA9IHVuaXQoMzAsICJtbSIpLCANCiAgICBwYW5lbC5iYWNrZ3JvdW5kID0gZWxlbWVudF9yZWN0KGZpbGwgPSAid2hpdGUiKQ0KICApICsNCiAgc2NhbGVfZmlsbF9ncmFkaWVudCgNCiAgICBsb3cgPSAiIzk4RkI5OCIsIGhpZ2ggPSAiIzAwNjQwMCIsDQogICAgbmFtZSA9ICJGaXJzdCBBdXRob3IgQ291bnQiLCAgDQogICAgbmEudmFsdWUgPSAiZ3JheTcwIiwNCiAgICBsaW1pdHMgPSBjKDEsIDIwKQ0KICApICsNCiAgZ3VpZGVzKA0KICAgIGZpbGwgPSBndWlkZV9jb2xvdXJiYXIoDQogICAgICBiYXJ3aWR0aCA9IHVuaXQoMjEwLCB1bml0cyA9ICJtbSIpLA0KICAgICAgYmFyaGVpZ2h0ID0gdW5pdCg1LCB1bml0cyA9ICJtbSIpDQogICAgKQ0KICApDQoNCmZpZzUNCg0KICMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnNS5wZGYiKSwgd2lkdGggPSAyMSwgaGVpZ2h0ID0gMTIsIHVuaXRzID0gImNtIiwgc2NhbGUgPSAyLCBkcGkgPSA4MDApDQogIyBnZ3NhdmUoaGVyZSgiZmlndXJlcyIsICJmaWc1LmpwZyIpLCB3aWR0aCA9IDIxLCBoZWlnaHQgPSAxMiwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCg0KYGBgDQoNCiMjIEZpZ3VyZSBzMzgNCkhlYXQgbWFwIG9mIEV1cm9wZSBzaG93aW5nIHRoZSBjb3VudHJ5LWxldmVsIGNvdW50cyBmb3IgZmlyc3QgYXV0aG9yc+KAmSBjb3VudHJ5IG9mIGFmZmlsaWF0aW9uIG9mIG1ldGEtYW5hbHlzaXMgaW52ZXN0aWdhdGluZyB0aGUgaW1wYWN0cyBvZiBvcmdhbm9jaGxvcmluZSBwZXN0aWNpZGVzLiBHcmV5IGluZGljYXRlcyBubyBwdWJsaWNhdGlvbnMgYWZmaWxpYXRlZCB3aXRoIGEgZ2l2ZW4gY291bnRyeSBpbiBvdXIgZGF0YSBzZXQuIA0KYGBge3IsZmlnLndpZHRoPSAyMSwgZmlnLmhlaWdodD0xMn0NCmZpZ3MzOCA8LSBmdWxsbWFwICU+JQ0KZ2dwbG90KGFlcyhmaWxsID0gbiwgbWFwX2lkID0gcmVnaW9uKSkgKw0KZ2VvbV9tYXAobWFwID0gd29ybGRfbWFwLCBjb2xvciA9ICJncmF5NTAiKSArDQpjb29yZF9tYXAoIm1lcmNhdG9yIiwgeWxpbSA9IGMoMzUsIDY1KSwgeGxpbSA9IGMoLTM1LCA0NSkpICsgDQp0aGVtZSgNCiAgICBheGlzLnRleHQgPSBlbGVtZW50X2JsYW5rKCksICANCiAgICBheGlzLnRpdGxlID0gZWxlbWVudF9ibGFuaygpLCAgDQogICAgbGVnZW5kLmJveCA9ICJob3Jpem9udGFsIiwgIA0KICAgIGxlZ2VuZC5ib3guanVzdCA9ICJjZW50ZXIiLCAgDQogICAgbGVnZW5kLm1hcmdpbiA9IG1hcmdpbih0ID0gMTAsIHVuaXQgPSAicHQiKSwgIA0KICAgIGxlZ2VuZC50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNiksICANCiAgICBsZWdlbmQudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE4LCBmYWNlID0gImJvbGQiKSwgIA0KICAgIGxlZ2VuZC5rZXkud2lkdGggPSB1bml0KDMwLCAibW0iKSwNCiAgICBsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIiwNCiAgICBwYW5lbC5iYWNrZ3JvdW5kID0gZWxlbWVudF9yZWN0KGZpbGwgPSAid2hpdGUiKQ0KKSArDQpzY2FsZV9maWxsX2dyYWRpZW50KGxvdyA9ICIjOThGQjk4IiwgaGlnaCA9ICIjMDA2NDAwIiwNCiAgICBuYW1lID0gIkZpcnN0IEF1dGhvciBDb3VudCIsIG5hLnZhbHVlID0gImdyYXk3MCIsDQogICAgbGltaXRzID0gYygxLCAxMCksIGJyZWFrcyA9IHNlcSgwLCAxMCwgbGVuZ3RoLm91dCA9IDYpKSANCg0KZmlnczM4DQoNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczM4LnBkZiIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMiwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCiMgZ2dzYXZlKGhlcmUoImZpZ3VyZXMiLCAiZmlnczM4LmpwZyIpLCB3aWR0aCA9IDE2LCBoZWlnaHQgPSAxMiwgdW5pdHMgPSAiY20iLCBzY2FsZSA9IDIsIGRwaSA9IDgwMCkNCmBgYA0KDQoNCiMjIEZpZ3VyZSBzMzkNCkNob3JkIGRpYWdyYW0gb2YgY29sbGFib3JhdGlvbnMgYWNyb3NzIGNvdW50cmllcy4gQ291bnRyaWVzIHJlcHJlc2VudCB0aGUgbG9jYXRpb24gb2YgdGhlIHByaW1hcnkgYXV0aG9yc+KAmSBhZmZpbGlhdGVkIGluc3RpdHV0aW9uLiANCmBgYHtyLGZpZy53aWR0aD0gMTIsIGZpZy5oZWlnaHQ9MTJ9DQoNCmpwZWcoZmlsZW5hbWUgPSBoZXJlKCJmaWd1cmVzIiwgImZpZ3MzOS5qcGciKSwgd2lkdGggPSA4MDAsIGhlaWdodCA9IDgwMCkNCg0KIyBFeHRyYWN0IGNvdW50cmllcyBmcm9tIHRoZSBhZmZpbGlhdGlvbnMNCmJpYl9zY28yIDwtIG1ldGFUYWdFeHRyYWN0aW9uKGJpYl9zY28sIEZpZWxkID0gIkFVX0NPIiwgc2VwID0gIjsiKQ0KDQojIENyZWF0ZSBhIG5ldHdvcmsgbWF0cml4IG9mIGNvbGxhYm9yYXRpb25zIGJldHdlZW4gY291bnRyaWVzDQpOZXRNYXRyaXhfY291bnRyeSA8LSBiaWJsaW9OZXR3b3JrKGJpYl9zY28yLCBhbmFseXNpcyA9ICJjb2xsYWJvcmF0aW9uIiwgbmV0d29yayA9ICJjb3VudHJpZXMiLCBzZXAgPSAiOyIpDQoNCiMgQ29udmVydCB0aGUgbmV0d29yayBtYXRyaXggdG8gYSBzdGFuZGFyZCBtYXRyaXgNCk5ldE1hdHJpeF9jb3VudHJ5IDwtIGFzLm1hdHJpeChOZXRNYXRyaXhfY291bnRyeSkNCg0KIyBSZW1vdmUgdGhlIGxvd2VyIHRyaWFuZ2xlIChhcyB0aGlzIGlzIGR1cGxpY2F0aW9uIG9mIGluZm8pDQpOZXRNYXRyaXhfY291bnRyeVtsb3dlci50cmkoTmV0TWF0cml4X2NvdW50cnkpXSA8LSAwIA0KDQojIENoYW5nZSBjb2x1bW4gYW5kIHJvdyBuYW1lcyB0byB0aXRsZSBjYXNlDQpjb2xuYW1lcyhOZXRNYXRyaXhfY291bnRyeSkgPC0gc3RyX3RvX3RpdGxlKGNvbG5hbWVzKE5ldE1hdHJpeF9jb3VudHJ5KSkNCnJvd25hbWVzKE5ldE1hdHJpeF9jb3VudHJ5KSA8LSBzdHJfdG9fdGl0bGUocm93bmFtZXMoTmV0TWF0cml4X2NvdW50cnkpKQ0KDQojIENoYW5nZSAiVXNhIiB0byAiVVNBIg0KY29sbmFtZXMoTmV0TWF0cml4X2NvdW50cnkpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb3VudHJ5KSA9PSAiVXNhIl0gPC0gIlVTQSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb3VudHJ5KVtyb3duYW1lcyhOZXRNYXRyaXhfY291bnRyeSkgPT0gIlVzYSJdIDwtICJVU0EiDQoNCiMgQ2hhbmdlICJVbml0ZWQgS2luZ2RvbSIgdG8gIlVLIiBmb3IgZWFzaWVyIHBsb3R0aW5nDQpjb2xuYW1lcyhOZXRNYXRyaXhfY291bnRyeSlbY29sbmFtZXMoTmV0TWF0cml4X2NvdW50cnkpID09ICJVbml0ZWQgS2luZ2RvbSJdIDwtICJVSyINCnJvd25hbWVzKE5ldE1hdHJpeF9jb3VudHJ5KVtyb3duYW1lcyhOZXRNYXRyaXhfY291bnRyeSkgPT0gIlVuaXRlZCBLaW5nZG9tIl0gPC0gIlVLIg0KDQojIFNldHRpbmcgdXAgY3VzdG9tIHBhcmFtZXRlcnMNCmNpcmNvcy5wYXIoY2VsbC5wYWRkaW5nID0gYygwLCAwLCAwLCAwKSwgdHJhY2subWFyZ2luID0gYygwLCAwKSkNCg0KIyBDcmVhdGUgYSBjaG9yZCBkaWFncmFtIG9mIHRoZSBuZXR3b3JrIG1hdHJpeA0KIGNob3JkRGlhZ3JhbShOZXRNYXRyaXhfY291bnRyeSwgYW5ub3RhdGlvblRyYWNrID0gImdyaWQiLCBwcmVBbGxvY2F0ZVRyYWNrcyA9IDEpDQoNCiMgQWRkIGEgdHJhY2sgdG8gbGFiZWwgZWFjaCBzZWN0b3Igd2l0aCBpdHMgbmFtZQ0KY2lyY29zLnRyYWNrUGxvdFJlZ2lvbih0cmFjay5pbmRleCA9IDEsIGJnLmJvcmRlciA9IE5BLCBwYW5lbC5mdW4gPSBmdW5jdGlvbih4LCB5KSB7DQogIHhsaW0gPSBnZXQuY2VsbC5tZXRhLmRhdGEoInhsaW0iKQ0KICB5bGltID0gZ2V0LmNlbGwubWV0YS5kYXRhKCJ5bGltIikNCiAgc2VjdG9yLm5hbWUgPSBnZXQuY2VsbC5tZXRhLmRhdGEoInNlY3Rvci5pbmRleCIpDQogIGNpcmNvcy50ZXh0KG1lYW4oeGxpbSksIHlsaW1bMV0gKyAwLjIgLCBzZWN0b3IubmFtZSwgZmFjaW5nID0gImNsb2Nrd2lzZSIsIG5pY2VGYWNpbmcgPSBUUlVFLCBhZGogPSBjKDAsIDApKQ0KICBjaXJjb3MuYXhpcyhoID0gInRvcCIsIGxhYmVscy5jZXggPSAwLjUsIG1ham9yLnRpY2subGVuZ3RoID0gMC4yLCBzZWN0b3IuaW5kZXggPSBzZWN0b3IubmFtZSwgdHJhY2suaW5kZXggPSAyKQ0KfSkNCg0KZGV2Lm9mZigpDQpgYGANCg0KIyMgRmlndXJlIHM0MA0KQ2hvcmQgZGlhZ3JhbSBpbGx1c3RyYXRpb24gb2YgY29sbGFib3JhdGlvbnMgYWNyb3NzIGNvdW50cmllcy4gQ291bnRyaWVzIHJlcHJlc2VudCB0aGUgbG9jYXRpb24gb2YgdGhlIHByaW1hcnkgYXV0aG9yc+KAmSBhZmZpbGlhdGVkIGluc3RpdHV0aW9uLiBDb2xsYWJvcmF0aW9ucyB3aXRoaW4gY291bnRyaWVzIGFyZSBub3Qgc2hvd24uDQpgYGB7cixmaWcud2lkdGg9IDEyLCBmaWcuaGVpZ2h0PTEyfQ0KanBlZyhmaWxlbmFtZSA9IGhlcmUoImZpZ3VyZXMiLCAiZmlnczQwLmpwZyIpLCB3aWR0aCA9IDgwMCwgaGVpZ2h0ID0gODAwKQ0KDQpkaWFnKE5ldE1hdHJpeF9jb3VudHJ5KSA8LSAwDQoNCiMgQ3JlYXRlIGEgY2hvcmQgZGlhZ3JhbSBvZiB0aGUgbmV0d29yayBtYXRyaXgNCmZpZ3M0MyA8LSBjaG9yZERpYWdyYW0oTmV0TWF0cml4X2NvdW50cnksIGFubm90YXRpb25UcmFjayA9ICJncmlkIiwgcHJlQWxsb2NhdGVUcmFja3MgPSAxKQ0KDQojIEFkZCBhIHRyYWNrIHRvIGxhYmVsIGVhY2ggc2VjdG9yIHdpdGggaXRzIG5hbWUNCmNpcmNvcy50cmFja1Bsb3RSZWdpb24odHJhY2suaW5kZXggPSAxLCBwYW5lbC5mdW4gPSBmdW5jdGlvbih4LCB5KSB7DQogIHhsaW0gPSBnZXQuY2VsbC5tZXRhLmRhdGEoInhsaW0iKQ0KICB5bGltID0gZ2V0LmNlbGwubWV0YS5kYXRhKCJ5bGltIikNCiAgc2VjdG9yLm5hbWUgPSBnZXQuY2VsbC5tZXRhLmRhdGEoInNlY3Rvci5pbmRleCIpDQogIGNpcmNvcy50ZXh0KG1lYW4oeGxpbSksIHlsaW1bMV0gKyAwLjIsIHNlY3Rvci5uYW1lLCBmYWNpbmcgPSAiY2xvY2t3aXNlIiwgbmljZUZhY2luZyA9IFRSVUUsIGFkaiA9IGMoMCwgMC41KSkNCiAgY2lyY29zLmF4aXMoaCA9ICJ0b3AiLCBsYWJlbHMuY2V4ID0gMC41LCBtYWpvci50aWNrLmxlbmd0aCA9IDAuMiwgc2VjdG9yLmluZGV4ID0gc2VjdG9yLm5hbWUsIHRyYWNrLmluZGV4ID0gMikNCn0sIGJnLmJvcmRlciA9IE5BKQ0KDQpkZXYub2ZmKCkNCg0KYGBgDQoNCiMjIEZpZ3VyZSA2DQpDaG9yZCBkaWFncmFtIGlsbHVzdHJhdGlvbiBvZiBjb2xsYWJvcmF0aW9ucyBhY3Jvc3MgY29udGluZW50cy4gQ29udGluZW50cyByZXByZXNlbnQgdGhlIGxvY2F0aW9uIG9mIHRoZSBwcmltYXJ5IGF1dGhvcnPigJkgYWZmaWxpYXRlZCBpbnN0aXR1dGlvbi4gQ29sbGFib3JhdGlvbnMgd2l0aGluIGNvdW50cmllcyBhcmUgbm90IHNob3duLg0KYGBge3IsZmlnLndpZHRoPSAxMiwgZmlnLmhlaWdodD0xMn0NCiMgQ291bnRyeSByZW5hbWUgdG8gY29udGluZW50cw0KTmV0TWF0cml4X2NvbnRpbmVudCA8LSBOZXRNYXRyaXhfY291bnRyeQ0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIlVTQSJdIDwtICJOb3J0aCBBbWVyaWNhIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIlVTQSJdIDwtICJOb3J0aCBBbWVyaWNhIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiU3BhaW4iXSA8LSAiRXVyb3BlIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIlNwYWluIl0gPC0gIkV1cm9wZSINCg0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkNoaW5hIl0gPC0gIkFzaWEiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiQ2hpbmEiXSA8LSAiQXNpYSINCg0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkZyYW5jZSJdIDwtICJFdXJvcGUiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiRnJhbmNlIl0gPC0gIkV1cm9wZSINCg0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkNhbmFkYSJdIDwtICJOb3J0aCBBbWVyaWNhIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkNhbmFkYSJdIDwtICJOb3J0aCBBbWVyaWNhIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiRGVubWFyayJdIDwtICJFdXJvcGUiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiRGVubWFyayJdIDwtICJFdXJvcGUiDQoNCmNvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJOZXRoZXJsYW5kcyJdIDwtICJFdXJvcGUiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiTmV0aGVybGFuZHMiXSA8LSAiRXVyb3BlIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiQmVsZ2l1bSJdIDwtICJFdXJvcGUiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiQmVsZ2l1bSJdIDwtICJFdXJvcGUiDQoNCmNvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJVSyJdIDwtICJFdXJvcGUiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiVUsiXSA8LSAiRXVyb3BlIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiQXVzdHJhbGlhIl0gPC0gIk90aGVyIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkF1c3RyYWxpYSJdIDwtICJPdGhlciINCg0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkJyYXppbCJdIDwtICJPdGhlciINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJCcmF6aWwiXSA8LSAiT3RoZXIiDQoNCmNvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJHZXJtYW55Il0gPC0gIkV1cm9wZSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJHZXJtYW55Il0gPC0gIkV1cm9wZSINCg0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkZpbmxhbmQiXSA8LSAiRXVyb3BlIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkZpbmxhbmQiXSA8LSAiRXVyb3BlIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiR3JlZWNlIl0gPC0gIkV1cm9wZSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJHcmVlY2UiXSA8LSAiRXVyb3BlIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiS29yZWEiXSA8LSAiQXNpYSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJLb3JlYSJdIDwtICJBc2lhIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiTm9yd2F5Il0gPC0gIkV1cm9wZSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJOb3J3YXkiXSA8LSAiRXVyb3BlIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiU3dlZGVuIl0gPC0gIkV1cm9wZSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJTd2VkZW4iXSA8LSAiRXVyb3BlIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiRWd5cHQiXSA8LSAiT3RoZXIiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiRWd5cHQiXSA8LSAiT3RoZXIiDQoNCmNvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJJdGFseSJdIDwtICJFdXJvcGUiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiSXRhbHkiXSA8LSAiRXVyb3BlIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiSmFwYW4iXSA8LSAiQXNpYSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJKYXBhbiJdIDwtICJBc2lhIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiUG9ydHVnYWwiXSA8LSAiRXVyb3BlIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIlBvcnR1Z2FsIl0gPC0gIkV1cm9wZSINCg0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIlN3aXR6ZXJsYW5kIl0gPC0gIkV1cm9wZSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJTd2l0emVybGFuZCJdIDwtICJFdXJvcGUiDQoNCmNvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJUdXJrZXkiXSA8LSAiQXNpYSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJUdXJrZXkiXSA8LSAiQXNpYSINCg0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkluZGlhIl0gPC0gIkFzaWEiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiSW5kaWEiXSA8LSAiQXNpYSINCg0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIklyYW4iXSA8LSAiQXNpYSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJJcmFuIl0gPC0gIkFzaWEiDQoNCmNvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJDb3N0YSBSaWNhIl0gPC0gIk5vcnRoIEFtZXJpY2EiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiQ29zdGEgUmljYSJdIDwtICJOb3J0aCBBbWVyaWNhIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiQ3plY2ggUmVwdWJsaWMiXSA8LSAiRXVyb3BlIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkN6ZWNoIFJlcHVibGljIl0gPC0gIkV1cm9wZSINCg0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkhvbmcgS29uZyJdIDwtICJBc2lhIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkhvbmcgS29uZyJdIDwtICJBc2lhIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiSWNlbGFuZCJdIDwtICJFdXJvcGUiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiSWNlbGFuZCJdIDwtICJFdXJvcGUiDQoNCmNvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJJcmVsYW5kIl0gPC0gIkV1cm9wZSINCnJvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW3Jvd25hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJJcmVsYW5kIl0gPC0gIkV1cm9wZSINCg0KY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbY29sbmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIk1leGljbyJdIDwtICJOb3J0aCBBbWVyaWNhIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIk1leGljbyJdIDwtICJOb3J0aCBBbWVyaWNhIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiUm9tYW5pYSJdIDwtICJFdXJvcGUiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiUm9tYW5pYSJdIDwtICJFdXJvcGUiDQoNCmNvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJTbG92YWtpYSJdIDwtICJFdXJvcGUiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiU2xvdmFraWEiXSA8LSAiRXVyb3BlIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiVWtyYWluZSJdIDwtICJFdXJvcGUiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiVWtyYWluZSJdIDwtICJFdXJvcGUiDQoNCmNvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpW2NvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpID09ICJBdXN0cmFsaWEiXSA8LSAiT3RoZXIiDQpyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtyb3duYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiQXVzdHJhbGlhIl0gPC0gIk90aGVyIg0KDQpjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KVtjb2xuYW1lcyhOZXRNYXRyaXhfY29udGluZW50KSA9PSAiS2F6YWtoc3RhbiJdIDwtICJBc2lhIg0Kcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudClbcm93bmFtZXMoTmV0TWF0cml4X2NvbnRpbmVudCkgPT0gIkthemFraHN0YW4iXSA8LSAiQXNpYSINCg0KDQojIGNvbGxhcHNpbmcNCm1lcmdlX21hdHJpeCA8LSB0KHJvd3N1bSh0KE5ldE1hdHJpeF9jb250aW5lbnQpLCBncm91cCA9IGNvbG5hbWVzKE5ldE1hdHJpeF9jb250aW5lbnQpLCBuYS5ybSA9IFQpKQ0KbWVyZ2VfbWF0cml4MiA8LSByb3dzdW0obWVyZ2VfbWF0cml4LCBncm91cCA9IHJvd25hbWVzKG1lcmdlX21hdHJpeCkpDQoNCg0KIyByZW1vdmUgZGlhZ29uYWwgZWxlbWVudHMNCmRpYWcobWVyZ2VfbWF0cml4MikgPC0gMA0KDQojIGNob3JkIHBsb3QNCmNob3JkRGlhZ3JhbUZyb21NYXRyaXgobWVyZ2VfbWF0cml4MikNCg0KDQojIERlZmluZSBjb2xvcnMNCm15X2NvbG9ycyA8LSBjKCIjMUI5RTc3IiwgIiNEOTVGMDIiLCAiIzc1NzBCMyIsICIjRTZBQjAyIikNCg0KbXlfY29sb3JzIDwtIHJlcChteV9jb2xvcnMsIGxlbmd0aC5vdXQgPSBuY29sKG1lcmdlX21hdHJpeDIpKQ0KDQoNCmpwZWcoImZpZ3VyZXMvL2ZpZ3M0Mi5qcGVnIiwgd2lkdGggPSAxNiwgaGVpZ2h0ID0gMTYsIHVuaXRzID0gImNtIiwgcmVzID0gMzAwKQ0KDQojIENyZWF0ZSBhIGNob3JkIGRpYWdyYW0gb2YgdGhlIG5ldHdvcmsgbWF0cml4DQpmaWc2IDwtIGNob3JkRGlhZ3JhbShzbWFsbF9tYXRyaXgsIA0KICAgICAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uVHJhY2sgPSAiZ3JpZCIsIA0KICAgICAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uVHJhY2tIZWlnaHQgPSBtbV9oKDcpLCANCiAgICAgICAgICAgICAgICAgICAgICAgcHJlQWxsb2NhdGVUcmFja3MgPSAxLA0KICAgICAgICAgICAgICAgICAgICAgICBncmlkLmNvbCA9IG15X2NvbG9yczIpDQoNCiMgQWRkIGEgdHJhY2sgdG8gbGFiZWwgZWFjaCBzZWN0b3Igd2l0aCBpdHMgbmFtZQ0KY2lyY29zLnRyYWNrUGxvdFJlZ2lvbih0cmFjay5pbmRleCA9IDEsIHBhbmVsLmZ1biA9IGZ1bmN0aW9uKHgsIHkpIHsNCiAgeGxpbSA9IGdldC5jZWxsLm1ldGEuZGF0YSgieGxpbSIpDQogIHlsaW0gPSBnZXQuY2VsbC5tZXRhLmRhdGEoInlsaW0iKQ0KICBzZWN0b3IubmFtZSA9IGdldC5jZWxsLm1ldGEuZGF0YSgic2VjdG9yLmluZGV4IikNCiAgY2lyY29zLnRleHQobWVhbih4bGltKSwgeWxpbVsxXSwgc2VjdG9yLm5hbWUsIGZhY2luZyA9ICJiZW5kaW5nLmluc2lkZSIsIG5pY2VGYWNpbmcgPSBUUlVFLCBhZGogPSBjKDAuNSwgMS43NSksIGNvbCA9ICJ3aGl0ZSIsIGNleCA9IDEuMikNCn0sIGJnLmJvcmRlciA9IE5BKQ0KDQoNCmRldi5vZmYoKQ0KDQpgYGANCg0KDQojIyBGaWd1cmUgczQ1DQpDaG9yZCBkaWFncmFtIGlsbHVzdHJhdGlvbiBvZiBjb2xsYWJvcmF0aW9ucyBhY3Jvc3MgZGlzY2lwbGluZXMuIERpc2NpcGxpbmVzIGhhdmUgYmVlbiBhbGxvY2F0ZWQgYmFzZWQgb24gdGhlIEpvdXJuYWwgQ2l0YXRpb24gQ2F0ZWdvcmllcyBvbiBXZWIgb2YgU2NpZW5jZS4gQ29sbGFib3JhdGlvbnMgd2l0aGluIGRpc2NpcGxpbmVzIGFyZSBub3Qgc2hvd24uDQpgYGB7cixmaWcud2lkdGg9IDEyLCBmaWcuaGVpZ2h0PTEyfQ0KZmllbGRzIDwtIHNkICU+JQ0KICBtdXRhdGUoDQogICAgdGl0bGUgPSBzdHJfdG9fbG93ZXIocGFwZXJfdGl0bGUpLA0KICAgIG50aXRsZSA9IHBhc3RlKHN0cl90b19sb3dlcihzdHJfc3BsaXRfZml4ZWQoc3R1ZHlfaWQsICJcXF8iLCBuID0gMilbLDFdKSwgcGFwZXJfdGl0bGUsIHNlcCA9ICIgIiksDQogICAgbnRpdGxlID0gc3RyX3NxdWlzaChudGl0bGUpLA0KICAgIEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkID0gc3RyX3JlcGxhY2VfYWxsKEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkLCAiVG94aWNvbG9neSIsICJPdGhlciIpLA0KICAgIEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkID0gc3RyX3JlcGxhY2VfYWxsKEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkLCAiTXVsdGlkaXNjaXBsaW5hcnkiLCAiTXVsdGlcbmRpc2NpcGxpbmFyeSIpLA0KICAgIEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkID0gc3RyX3JlcGxhY2VfYWxsKEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkLCAiTWFyaW5lIEJpb2xvZ3kiLCAiT3RoZXIiKSwNCiAgICBKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCA9IHN0cl9yZXBsYWNlX2FsbChKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCwgIkVudmlyb25tZW50YWwgU2NpZW5jZSIsICJFbnZpcm9uZW1lbnRhbFxuU2NpZW5jZSIpLCAgICBKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCA9IHN0cl9yZXBsYWNlX2FsbChKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZCwgIlBzeWNob2xvZ3kiLCAiT3RoZXIiKQ0KICApICU+JSANCiAgc2VsZWN0KG50aXRsZSwgSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQpDQoNCmJpYl9uYW1lcyA8LSBiaWJfc2NvICU+JSByb3duYW1lc190b19jb2x1bW4oLiwgdmFyID0gIm1hdF9uYW1lcyIpICU+JSANCiAgbXV0YXRlKFRJMiA9IHRvbG93ZXIodW5saXN0KGxhcHBseShkYXRhLmZyYW1lKHQoc3RyX3NwbGl0X2ZpeGVkKFRJLCAiICIsIG4gPSAxNSlbLDE6MTRdKSksIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGZ1bmN0aW9uKHgpIHN0cl9jKHgsIGNvbGxhcHNlICA9ICIgIikpKSksDQogICAgICAgICBuYW1lMiA9IHN0cmlfdHJhbnNfZ2VuZXJhbCh0b2xvd2VyKHN0cl9zcGxpdF9maXhlZChTUiwgIiAiLCBuID0gMilbLDFdKSwgImxhdGluLWFzY2lpIiksDQogICAgICAgICBUSTIgPSBwYXN0ZShuYW1lMiwgVEkyLCBzZXA9ICIgIiksDQogICAgICAgICBUSTIgPSB0cmltd3MoVEkyKSkgJT4lIA0KICBzZWxlY3QoVEkyLCBtYXRfbmFtZXMpDQoNCnBvcyA8LSBsYXBwbHkoYmliX25hbWVzJFRJMiwgZnVuY3Rpb24oeCkgc3RyaW5nZGlzdChmaWVsZHMkbnRpdGxlLCB4KSkNCnBvczI8LSBtYXBfZGJsKHBvcywgd2hpY2gubWluKQ0KDQojIG5vdyB3ZSBjYW4gbWVyZ2UgdHdvIGRhdGFzZXRzIA0KYmliX25hbWVzJEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkIDwtIGZpZWxkcyRKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZFtwb3MyXQ0KDQojIENyZWF0aW5nIG1hdHJpeCBmb3IgYmlibGlvbWV0cmljIGNvdXBsaW5nDQpOZXRNYXRyaXggPC0gYmlibGlvTmV0d29yayhiaWJfc2NvLCBhbmFseXNpcyA9ICJjb3VwbGluZyIsIG5ldHdvcmsgPSAicmVmZXJlbmNlcyIsIHNlcCA9ICI7IikNCg0KIyBmb3JjaW5nIGludG8gYSBucm9tYWwgbWF0cml4DQpuZXRfbWF0cml4IDwtIGFzLm1hdHJpeChOZXRNYXRyaXgpDQoNCmRpYWcobmV0X21hdHJpeCkgPC0gMCAjZ2V0IHJpZCBvZiBjb3VudHMgZm9yIHRoZSBzYW1lIHBhcGVycw0KDQojIHJlcGxhY2luZyBuYW1lcyB3aXRoIEpvdXJuYWxfQ2F0ZWdvcnlfQWxsb2NhdGVkX0Jyb2FkDQpyb3duYW1lcyhuZXRfbWF0cml4KSA8LSBiaWJfbmFtZXMkSm91cm5hbF9DYXRlZ29yeV9BbGxvY2F0ZWRfQnJvYWQNCmNvbG5hbWVzKG5ldF9tYXRyaXgpIDwtIGJpYl9uYW1lcyRKb3VybmFsX0NhdGVnb3J5X0FsbG9jYXRlZF9Ccm9hZA0KDQojIHJlZHVjaW5nIG1hdHJpeCBhY2NvcmRpbmcgdG8gZGlzY2lwbGluZV9jb2RlDQpyZWN0X21hdHJpeDwtIHQocm93c3VtKHQobmV0X21hdHJpeCksIGdyb3VwID0gY29sbmFtZXMobmV0X21hdHJpeCksIG5hLnJtID0gVCkpDQpzbWFsbF9tYXRyaXggPC0gcm93c3VtKHJlY3RfbWF0cml4LCBncm91cCA9IHJvd25hbWVzKHJlY3RfbWF0cml4KSkNCg0KIyBnZXR0aW5nIHJpZCBvZiBsb3dlciB0cmlhbmdsZSAoYXMgdGhpcyBpcyBkdXBsaWNhdGlvbiBvZiBpbmZvKQ0Kc21hbGxfbWF0cml4W2xvd2VyLnRyaShzbWFsbF9tYXRyaXgpXSA8LSAwIA0KcGFyKG1hciA9IGMoMCwgMCwgMCwgMCksIG1mcm93ID0gYygxLCAxKSkNCg0KIyBkaWFnKHNtYWxsX21hdHJpeCkgPC0gMA0KDQojIERlZmluZSBjb2xvcnMNCm15X2NvbG9yczIgPC0gYygiIzFCOUU3NyIsICIjRDk1RjAyIiwgIiM3NTcwQjMiLCAgIiNFNkFCMDIiKQ0KDQpteV9jb2xvcnMyIDwtIHJlcChteV9jb2xvcnMyLCBsZW5ndGgub3V0ID0gbmNvbChzbWFsbF9tYXRyaXgpKQ0KDQpqcGVnKCJmaWd1cmVzLy9maWdzNDIuanBlZyIsIHdpZHRoID0gMjAsIGhlaWdodCA9IDIwLCB1bml0cyA9ICJjbSIsIHJlcyA9IDMwMCkNCg0KIyBDcmVhdGUgYSBjaG9yZCBkaWFncmFtIHdpdGggc3BlY2lmaWVkIGNvbG9ycw0KZmlnczQ3IDwtIGNob3JkRGlhZ3JhbShzbWFsbF9tYXRyaXgsIA0KICAgICAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uVHJhY2sgPSAiZ3JpZCIsIA0KICAgICAgICAgICAgICAgICAgICAgICBhbm5vdGF0aW9uVHJhY2tIZWlnaHQgPSBtbV9oKDcpLCANCiAgICAgICAgICAgICAgICAgICAgICAgcHJlQWxsb2NhdGVUcmFja3MgPSAxLA0KICAgICAgICAgICAgICAgICAgICAgICBncmlkLmNvbCA9IG15X2NvbG9yczIpDQoNCiMgQWRkIGEgdHJhY2sgdG8gbGFiZWwgZWFjaCBzZWN0b3Igd2l0aCBpdHMgbmFtZQ0KY2lyY29zLnRyYWNrUGxvdFJlZ2lvbih0cmFjay5pbmRleCA9IDEsIHBhbmVsLmZ1biA9IGZ1bmN0aW9uKHgsIHkpIHsNCiAgeGxpbSA9IGdldC5jZWxsLm1ldGEuZGF0YSgieGxpbSIpDQogIHlsaW0gPSBnZXQuY2VsbC5tZXRhLmRhdGEoInlsaW0iKQ0KICBzZWN0b3IubmFtZSA9IGdldC5jZWxsLm1ldGEuZGF0YSgic2VjdG9yLmluZGV4IikNCiAgY2lyY29zLnRleHQobWVhbih4bGltKSwgeWxpbVsxXSAsIHNlY3Rvci5uYW1lLCBmYWNpbmcgPSAiY2xvY2t3aXNlIiwgbmljZUZhY2luZyA9IFRSVUUsIGFkaiA9IGMoLTAuMSwgMC41KSwgY29sID0gImJsYWNrIiwgY2V4ID0gMSkNCn0sIGJnLmJvcmRlciA9IE5BKQ0KDQpkZXYub2ZmKCkNCmBgYA0KDQo=